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ABSTRACT 

Shipboard  fires  have  plagued  mariners  for  centuries;  they  still 
cause  significant  damage  and  casualties  each  year.  Improved  fire 
prevention  and  control  require  a  sound  knowledge  of  the  phenonema 
of  fire.  At  the  same  time,  a  study  of  fires  in  enclosed  pressure  vessels 
has  been  undertaken  by  the  Navy  using  FIRE-1,  a  large  pressure 
vessel,  to  conduct  full-scale  experimental  fires.  A  computer  model  is 
being  developed  to  simulate  the  FIRE-1  tests.  This  three-dimensional 
finite  difference  model  uses  a  cylindrical/spherical  coordinate  system 
and  includes  the  effects  of  turbulence,  surface  and  flame  radiation, 
internal  ventilation,  global  and  local  pressure  corrections,  strong 
buoyancy,  and  conjugate  boundary  conditions.  Given  a  heat  release 
rate,  the  model  computes  temperature,  pressure,  density  and  velocity 
fields  for  the  entire  vessel.  This  thesis  presents  the  internal 
ventilation  feature  of  the  model  and  compares  the  numerical  results  to 
a  nonventilated  case.  Additional  features  such  as  combustion  and 
gaseous  radiation  are  being  incorporated  to  more  accurately  model 
real  fires.  When  validated,  this  model  will  become  a  useful  tool  for 
evaluating  fire  prevention  and  control  procedures  and  equipment. 
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I.    INTRODUCTION 

A.   BACKGROUND 

Fires  aboard  ships  pose  a  great  hazard  to  both  personnel  and 
materiel.  Millions  of  dollars  are  spent  annually  on  repairs  of  damage 
due  to  fires.  Personnel  casualties  caused  by  fires  cannot  be  measured 
in  dollars  and  include  both  fatalities  and  severe  injuries.  Most  person- 
nel casualties  result  from  toxic  gas  or  smoke  inhalation  rather  than 
contact  with  the  fire.  The  prevention  and  control  of  shipboard  fires  is 
one  of  the  Navy's  and  Coast  Guard's  greatest  challenges  in  future  ship 
design.  The  computer  simulation  of  a  shipboard  fire  presented  in  this 
thesis  provides  a  tool  which  may  be  used  to  reduce  the  damage  from 
shipboard  fires. 

In  order  to  prevent  fires  and  their  associated  casualties,  it  is  nec- 
essary to  better  understand  the  basic  phenomena  of  fire  and  smoke 
propagation  within  enclosed  spaces.  This  requires  knowledge  of  vari- 
ous physical  phenomena:  combustion,  fluid  mechanics,  and  heat  and 
mass  transfer.  Extensive  research  using  this  basic  knowledge  is 
needed  to  predict  the  behavior  of  fires.  With  a  better  understanding  of 
fires,  ship  designers  and  engineers  can  reduce  the  probability  of  igni- 
tion and  propagation.  New  systems  and  procedures  for  fire  control 
can  be  developed  to  reduce  the  losses  should  a  fire  start  due  to  acci- 
dent, equipment  failure,  or  hostile  action. 


Shipboard  fires  have  unique  complexities  not  found  in  other  fire 
scenarios.  Access  to  a  fire  area  is  limited  and  spaces  frequently  con- 
tain electronic  equipment,  electrical  power  sources,  machinery, 
combustibles,  or  toxic  materials.  Compartments  are  often  closed, 
permitting  pressure  to  build  up  in  the  space.  Self-contained  or  recir- 
culating ventilation  systems  present  unusual  fire  scenarios.  All  of 
these  complications  must  be  considered  in  the  study  of  shipboard 
fires;  the  model  developed  in  this  thesis  has  incorporated  two  of  these 
complexities:    pressure  build-up  and  recirculating  ventilation. 

Shipboard  fire  research  is  currently  being  conducted  by  many 
organizations,  including  the  Navy  and  the  Coast  Guard.  Research 
includes  both  experimental  work  and  computer  modeling.  Experi- 
mental work  is  limited  due  to  its  high  cost.  Scale  models  of  fires  do 
not  predict  the  behavior  of  full-scale  fires  because  of  the  complexity  of 
the  fire  phenomena.  It  thus  becomes  necessary  to  conduct  fire 
research  with  full-scale  testing.  At  the  Naval  Research  Laboratory  in 
Washington,  D.  C,  the  U.S.  Navy  built  FIRE-1,  a  large  pressure  vessel 
designed  to  simulate  fires  aboard  submarines  and  surface  ships.  This 
unique  test  facility  offers  the  researcher  an  opportunity  to  study  a  fire 
with  the  pressure  building  up  in  the  vessel.  This  models  a  fire  in  a 
submarine  or  in  a  closed  compartment  on  a  surface  ship. 

Today's  supercomputers,  with  their  extremely  rapid  computa- 
tional speed  and  massive  storage  capability,  offer  a  researcher  the 
option  of  computer  modeling  of  fires.  The  systems  of  partial  differen- 
tial equations  which  govern  the  fire  phenomena  can  now  be  solved 


numerically.  The  first  models  were  simple,  but  current  models  are 
building  on  the  older  models,  incorporating  more  phenomena  and 
producing  more  accurate  results.  As  each  new  submodel  (such  as  a 
combustion  or  gas  radiation  model)  is  added,  the  quality  of  the 
numerical  solutions  improves.  The  models  are  being  verified  by  com- 
parison with  actual  fires,  such  as  those  conducted  in  FIRE-1. 

When  validated,  computer  models  provide  an  excellent  tool  for 
the  fire  researcher.  In  experiments,  each  test  must  be  repeated  many 
times  to  verify  the  procedures,  test  facility,  and  data.  The  cost  of 
these  experiments  becomes  prohibitive.  Experimental  researchers 
must  determine  which  test  scenarios  will  produce  the  most  meaning- 
ful results  and  how  to  design  the  data  collection  systems  and  proce- 
dures to  monitor  the  most  critical  parameters.  This  is  one  aspect  in 
which  computer  fire  simulations  become  invaluable.  By  developing  a 
code  which  accurately  simulates  a  fire  in  FIRE-1,  various  fire  scenar- 
ios can  be  modeled  at  a  reasonable  cost.  The  most  interesting  scenar- 
ios can  then  be  investigated  by  experiments  in  FIRE-1. 

Computer  models  may  also  be  used  in  modeling  fires  which  can- 
not be  tested  in  full  scale  due  to  the  size  and  geometry  limitations  of 
FIRE-1.  An  entire  area  of  a  ship  might  be  modeled  and  the  progress 
of  the  fire  within  and  between  compartments  could  be  investigated. 
With  such  simulations,  the  spread  of  fire  could  be  analyzed,  and  new 
methods  can  be  evaluated  to  prevent  the  spread  of  fire  from  compart- 
ment to  compartment.  Additionally,  the  efficacy  of  fire  extinguishing 
systems  can  be  evaluated  by  introducing  models  of  these  systems  into 


the  fire  model.  All  of  these  future  uses  require  a  validated  code  and 
the  use  of  a  large  computer.  While  the  cost  of  a  computer  model  test 
is  significantly  less  than  a  full-scale  test,  it  still  requires  extensive 
computer  time.  The  current  code  running  on  an  IBM  3033  uses 
approximately  1.5  CPU  hours  per  second  of  fire  time.  A  supercom- 
puter and  vectorization  could  reduce  this  time  by  one  or  two  orders  of 
magnitude,  but  the  number  of  model  tests  needed  to  fully  validate  the 
code  still  will  require  significant  supercomputer  resources. 

B.      COMPUTER   MODELING 

There  are  two  basic  procedure  for  modeling  fires:  field  and  zone 
modeling.  Zone  modeling  involves  dividing  the  fire  area  into  control 
volumes  or  distinct  regions  [Ref.  1].  Each  region  contains  a  phenom- 
ena of  particular  interest,  such  as  the  base  of  the  fire,  fire  plume, 
heating  of  the  wall,  ventilation  inlet  or  outlet  duct,  etc.  Mass  and 
energy  balances  are  conducted  across  the  boundaries  and  interconnect 
all  of  the  control  volumes.  This  procedure  provides  information  for 
the  entire  area,  but  the  phenomena  occurring  within  each  control  vol- 
ume are  not  always  understood. 

Field  modeling,  also  known  as  differential  field  equation  model- 
ing, divides  the  compartment  into  finite  volume  elements.  The  con- 
servation equations  in  differential  form  are  used  to  calculate  the  mass, 
momentum,  energy,  and  smoke  concentration  at  each  time  interval. 
The  temperature,  velocity,  pressure,  density,  and  smoke  concentra- 
tion are  known  in  each  volume  element.  Models  for  additional  physi- 
cal  effects,    such   as   turbulence,    forced   ventilation,    and   different 


geometry  (such  as  equipment  or  decks)  can  be  included  in  a  field 
model  to  better  simulate  actual  fires.  Field  modeling  requires  a  large, 
fast  computer  with  significantly  more  memory  than  zone  modeling. 
The  accuracy  of  the  solution  depends  upon  reducing  the  size  of  the 
control  volumes;  this  increases  the  number  of  individual  cells,  the  size 
of  the  problem,  and  the  computing  expense. 

Much  fire  research  has  been  conducted  to  provide  a  solid  founda- 
tion for  this  thesis.  Work  performed  at  the  University  of  Notre  Dame 
[Refs.  2,  3]  included  a  two-dimensional  finite  difference  field  model  of 
aircraft  fires.  It  predicted  the  movement  of  hot  gases  and  smoke  as 
well  as  temperature  and  smoke  concentration  levels  in  the  seating 
area  of  an  aircraft  cabin.  Additional  work  by  Nicolette,  et  al.  [Ref.  4] 
included  the  development  of  a  two-dimensional  model  of  transient 
cooling  by  natural  convection.  This  model  utilized  a  fully  transient 
semi-implicit  upwind  differencing  scheme  with  a  global  pressure  cor- 
rection. Experimental  data  showed  good  agreement  with  the  numeri- 
cal predictions. 

Recent  studies  [Refs.  5  through  13]  have  developed  numerical 
solutions  for  natural  convection  in  three-dimensional  rectangular 
enclosures  using  field  modeling.  They  successfully  solved  nonlinear 
partial  differential  equations  with  a  finite  difference  method.  Models 
and  studies  involving  three-dimensional  cylindrical  coordinate  buoyant 
flows  [Refs.  14  through  20]  deal  primarily  with  horizontal  cylindrical 
annuli  that  have  walls  of  different  temperatures.  Smutek,  et  al.  [Ref. 
19]   studied   convection  in   a  horizontal  cylinder  with   differentially 


heated  ends  at  low  Rayleigh  numbers.  Yang,  et  al.  [Ref.  20]  conducted 
a  similar  numerical  study  for  high  Rayleigh  numbers. 

The  difficulty  in  calculating  pressure  has  been  addressed  using 
methods  that  eliminate  pressure  from  the  governing  equations. 
Stream  function-vorticity  methods  [Refs.  14  through  19]  have  been 
used  to  solve  natural  convection  problems  in  several  geometries.  The 
problems  inherent  in  this  method  include  instability  at  moderate  to 
high  Rayleigh  numbers,  difficulties  in  handling  three-dimensional 
situations,  and  the  lack  of  pressure  information,  which  often  is  a 
parameter  of  interest.  These  problems  are  addressed  by  Yang,  et  al. 
[Ref.  20],  who  propose  the  use  of  primitive  variables  with  an  arbitrary 
orthogonal  coordinate  system. 

Ozoe,  et  al.  [Ref.  21]  used  a  vorticity  vector  potential  formulation 
and  alternating-direction-implicit  finite  difference  method  to  compute 
velocity  and  temperature  fields  for  three-dimensional  natural  convec- 
tion in  a  spherical  annulus. 

Baum  and  Rehm  [Refs.  22  through  25]  have  developed  several 
field  models  for  prediction  of  fires.  Their  models  use  time-dependent 
inviscid  Boussinesq  equations  to  simulate  three-dimensional  buoyant 
convection  and  smoke  aerosol  coagulation.  Field  models  have  also 
been  used  to  model  room  fires  [Ref.  26]  and  fires  in  a  general  three- 
dimensional  enclosure  [Ref.  27]. 

The  numerical  method  developed  by  Yang,  et  al.  [Ref.  20]  and  used 
in  this  thesis  is  based  upon  the  use  of  primitive  variable  finite  differ- 
ence   discretization   in   generalized    orthogonal    coordinates.      This 


method  has  the  ability  to  handle  complex  geometries  and  the  stability 
inherent  in  the  primitive  variable  formulation. 

C.      FIRE-1,  THE  TEST  FACILITY 

To  better  understand  the  phenomena  of  fire  inside  a  pressurized 
compartment,  the  Navy  built  an  experimental  pressure  vessel  for  con- 
ducting test  fires.  This  test  facility  is  designated  FIRE-1  and  is 
located  at  the  Naval  Research  Laboratory  in  Washington,  D.  C.  A  brief 
summary  of  FIRE-1  is  contained  here;  a  more  detailed  report  is  pro- 
vided by  Alexander,  et  al.  [Ref.  28].  Figure  1.1  shows  the  basic  layout  of 
FIRE-1.  It  is  a  46.6-foot-long  cylindrical  vessel  with  hemispherical 
ends,  capable  of  pressures  up  to  89.7  psi  at  450  F.  The  radius  of  both 
the  cylinder  and  the  end  caps  is  9.6  feet  and  the  total  enclosed  volume 
is  11,639  cubic  feet.  The  vessel  is  constructed  of  3/8  inch  ASTM  285 
Grade  C  steel  and  contains  rupture  discs  at  each  end  to  prevent  over- 
pressurization. 

Instrumentation  monitors  various  fire  parameters,  including 
pressures,  temperatures,  and  smoke  concentrations.  Pressure  trans- 
ducers and  bourdon  tube  gauges  are  located  at  the  north  and  south 
ends  of  the  vessel.  Thermocouples  and  radiometers  are  installed  as 
shown  in  Fig.  1.2.  An  array  of  ten  thermocouples  is  located  at  each 
end  of  the  tank.  Each  thermocouple  is  a  chrome  alumel  wire  of  0.2 
mm  diameter  having  ceramic  insulation  enclosed  in  1  mm  diameter 
Type  304  stainless  steel  jackets.  Thermocouples  are  also  located  on 
the  chamber  wall  to  measure  the  inside  and  outside  wall  temperatures. 


o 


iu  '-5   . 


</)    ._  O  £  Duo 


U5     £ 


°  i"  )C  _,  <r 


>    ?  2  <  o.nr< 

*  !2  H  8  9  £  " 


.<->• 


< 

z 
o 

#  a 
o  o 

.    o2 


IS 


51 


a.  y      <r  < 
.  <  "i3  3 

ui  5  2  in  J: 

u.  u  <  a.  £ 


^X3  °  a 
<->£<->  ?  * 

2  a.  >  O  I-  , 
<  tf)  U  I-   X 


SJ 


Figure  1-1.    Drawing  of  the  FIRE-1  Test  Vessel 
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Figure  1-2.    Side  View  of  FIRE-1  With  Sensor  Locations 


Additional  thermocouples  and  radiometers  are  available  for  temporary 
installation  at  various  locations  as  required  for  different  tests.  Smoke 
obscuration  can  be  measured  three  ways:  visual  obscuration  with  video 
cameras,  particle  analysis,  and  obscuration  with  laser  detectors.  The 
fuel  burn  rate  is  determined  with  a  round  tapered-edge  fire  pan  with 
various  cross-sectional  areas,  provided  with  a  constant-level  fuel  sup- 
ply system.  The  operation  and  calibration  is  described  by  Alexander, 
et.  al.  [Ref  28].  To  date,  the  burn  rate  data  has  not  been  accurate,  so 
further  experimentation  is  necessary  to  provide  fuel  burn  rate.  As  dis- 
cussed later,  the  lack  of  accurate  burn  rate  data  precludes  complete 
verification  of  the  computer  code.  In  the  interim,  several  methods  of 
deducing  burn  rate  have  been  developed  for  use  in  the  computer 
model. 

Three  features  permit  modification  of  the  tests  to  more  accurately 
model  the  submarine  or  ship  compartment  being  tested.  First,  there 
are  two  removable  decks,  one  installed  in  the  mid  plane  of  the  vessel 
and  the  other  slightly  over  three  feet  above  the  bottom.  Grated  or 
solid  deck  plates  can  be  installed  to  test  various  shipboard  configura- 
tions. The  decks  have  been  incorporated  in  the  computer  model  but 
have  not  yet  been  tested  and  verified.  Second,  a  nitrogen  pressuriza- 
tion  system  extinguishes  the  fire  and  can  be  used  to  evaluate  its  per- 
formance in  an  actual  fire  situation.  Ten  seconds  after  energizing  the 
nitrogen  system,  the  pressure  in  the  vessel  rises  to  two  atmospheres 
and  extinguishes  the  fire  by  reducing  the  partial  pressure  of  oxygen  to 
less  than  10.5  percent.     Third,  there  are  two  ventilation  fans  which 
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can  be  installed  to  simulate  the  effects  of  internal  ventilation.  The 
ventilation  system  has  been  included  in  the  computer  model  and  is 
the  subject  of  verification  in  Chapter  4  of  this  thesis. 

D.     FEATURES  OF  THE  PROGRAM 

The  computer  model  was  developed  as  a  low-cost  alternative  to 
predict  the  spread  of  fire  and  smoke  in  enclosed  spaces  on  naval  ves- 
sels. Together  with  the  FIRE-1  test  facility,  which  can  be  used  for 
validation  of  the  computer  code,  it  can  be  used  to  evaluate  the  effec- 
tiveness of  damage  control  systems  and  new  ship  designs  in  the  pre- 
vention and  control  of  fires. 

The  computer  model  is  a  joint  effort  of  the  University  of  Notre 
Dame  and  the  Naval  Postgraduate  School.  The  original  work  by  Nies 
[Ref.  29]  involved  a  model  of  a  rectangular  volume  similar  to  FIRE-1. 
The  model  was  a  three-dimensional,  finite  difference  model  employ- 
ing primitive  variables.  It  included  a  global  pressure  correction,  sur- 
face radiation,  turbulence,  and  simple  conduction  at  the  walls.  The 
unreliability  of  the  burn  rate  data  from  FIRE-1  experiments  caused  a 
problem  in  validation  of  the  computer  model.  To  overcome  this 
problem,  a  scheme  for  developing  the  burn  rate  based  on  the  experi- 
mental pressure  was  developed;  the  procedure  is  describe  by  Nies 
[Ref.  29:pp.  61-63]. 

Raycraft  [Ref.  30]  developed  a  more  sophisticated  model  which 
uses  a  spherical/cylindrical  coordinate  system  to  more  accurately 
model  FIRE-1.  It  also  includes  a  more  detailed  formulation  of  surface 
radiation,  global  pressure  correction,  turbulence,  and  conduction.    The 
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problem  with  burn  rate  data  persisted,  and  three  trials  were  run  to 
attempt  to  better  simulate  the  burn  rate.    The  conclusions  were: 

1.  The  pressure  tracking  case,  Trial  1,  provided  a  numerically  gen- 
erated heat  release  curve  from  other  available  sources.  The  pres- 
sure was  forced  to  follow  the  experimental  curve,  causing  large 
oscillations  in  the  heat  release  and  temperature  data. 

2.  Trial  2  used  a  third-order  polynomial  fit  of  the  experimental  data 
provided  by  NRL.  The  pressure  and  temperature  did  not  oscillate 
greatly,  but  the  values  obtained  were  very  high.  This  indicated 
that  experimental  burn  rate  data  was  also  too  high.  It  was  known 
at  the  onset  that  the  heat  release  rate  data  could  be  off  by  some 
unknown  scaling  factor. 

3.  Of  the  three  test  cases  examined,  Trial  3  was  a  better  repre- 
sentation of  the  fire  in  FIRE-1.  This  case  combined  the  heat 
release  rate  levels  obtained  from  Trial  1  with  the  third-order 
polynomial  fit  variation  from  Trial  2.  The  results  were  a  realistic 
burn  rate  curve  to  use  as  input  into  the  computer  code.  [Ref.  30] 

The   present  code  includes  internal  forced  ventilation  into  the 

model.    The  effects  of  two  fans  blowing  into  the  end  caps  of  the  vessel 

is  investigated  in  this  thesis  using  the  burn  rate  curve  discussed  above 

in  Conclusion  3.    The  results  are  compared  with  existing  data  of  the 

fire  model  without  ventilation. 

E.     THESIS     OUTLINE 

This  thesis  describes  the  numerical  model,  its  derivation,  and 
application.  In  Chapter  2,  the  governing  equations,  initial  and  bound- 
ary conditions,  and  the  various  submodels  employed  are  discussed. 
Chapter  3  presents  the  derivation  of  the  finite  difference  equations. 
The  use  of  the  control  volume  method  in  the  spherical/cylindrical 
geometry  is  explained.  The  conservation  equations  are  presented  and 
integrated,  finite  difference  equations  are  developed,  and  the  pressure 


12 


correction  procedures  are  described.  Chapter  4  presents  the  experi- 
mental data  for  the  internal  ventilation  model  and  compares  it  with 
the  nonventilated  case.  The  conclusions  and  recommendations  for 
future  work  are  presented  in  Chapter  5.  The  appendix  contains  the 
code  for  the  model. 
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II.    NUMERICAL   MODEL 

A.      GOVERNING  EQUATIONS 

1.  Introduction 

The  governing  differential  equations  used  in  the  computer 
model  are  described  in  this  section.  They  are  initially  presented  for  a 
Cartesian  system  and  then  transformed  into  a  generalized  curvilinear 
coordinate  system  using  standard  tensor  notation.  Several  assump- 
tions are  made  in  the  development  of  the  governing  equations.  The 
fire  is  modeled  as  an  unsteady  volumetric  heat  source  that  is  a  third 
order  polynomial  in  time,  which  resulted  from  previous  work  [Ref.  30]. 
The  effects  of  combustion  have  not  yet  been  incorporated  into  the 
code.    Density  varies  in  accordance  with  the  perfect  gas  law. 

Nies  [Ref.  29]  developed  a  computer  code  to  model  a  fire  in 
FIRE-1  using  Cartesian  coordinates  as  an  initial  approximation.  Ray- 
craft  [Ref.  30]  describes  the  code  for  the  current  spherical/ cylindrical 
geometry  which  is  summarized  below. 

2.  General  Equations 

The  governing  equations  include:  conservation  of  mass  (con- 
tinuity), conservation  of  momentum,  conservation  of  energy,  and  the 
equations  of  state.  These  are  presented  below  in  Cartesian  coordi- 
nates and  in  standard  tensor  notations.   The  continuity  equation  is: 

P't+  (PUi)M=  °  (2.1) 


14 


The  momentum  equation  is  given  as: 

(pu1).t+(puiu]),j=-P,|-pG,  +  (a1)),  (22) 

and  the  energy  equation  is: 

(pCpmT).t+(pu1CpmT)M=(kTfj)M+^+Puu  (23) 

The  stress  tensor  is  given  as: 

°tj  =  ^ff(u,J+uj,i-|5ijukk)  [24) 

with  5y  being  the  Kronecker  delta,  which  equals  the  value  of  1  when 
i  =  j  and  equals  the  value  of  0  when  i  *  j.   The  dissipation  function  is: 

»  =  W5.  +  [»,i1-^-W  ,2.5) 

The  equations  of  state  are  given  as: 

P=PRT  (2.6) 

ft=Cpn,(T-TR)  (2.7) 

Since  the  computer  model  of  FIRE-1  is  in  a  combination  of  spherical 
and  cylindrical  coordinates,  these  equations  must  be  transformed  into 
a  general  curvilinear  coordinate  system  (01,  62,  03).  Yang,  et.  al.  [Ref. 
20]  outlines  this  process,  using  the  rules  established  by  Eringen  [Ref. 
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31].      The   generalized    orthogonal   coordinates   are   transformed   as 
follows: 


Xj-^6 


(2.8) 


with  a  scale  factor,  hi,  for  curvilinear  coordinates  given  as: 


hi  =  V§i-   St  =  J 


(dxA 


(2.9) 


The  scale  factor  is  a  component,  therefore  the  summation  rule  does 
not  apply  to  the  subscript  of  hi.  Reference  31  gives  the  scale  factors 
in  cylindrical  coordinates  as: 


h ,  =r  =  0' 


(2.10) 


h2=l 


(2.11) 


h3=1 


(2.12) 


In  spherical  coordinates,  the  scale  factors  are: 


hj  =  r  sin  9=6  sinG 


(2.13) 


h2=l 


(2.14) 


h3=r=0' 


(2.15) 
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The  covariant  and  contravariant  metric  tensors  of  orthogonal 
coordinates  are  given  as: 


r   2j    =    S^hjhj 


(2.16) 


h.hj 


(2.17) 


The  vector  tangent  to  the  ui  curve  at  P  is  given  as: 


u.  = 


g..   u 


(j) 


and  the  velocity  vector  is  given  as: 


(2.18) 


u'  = 


u 


(i) 


(2.19) 


In  generalized  orthogonal  coordinates  [Ref.  20],  the  continu- 
ity equation  is: 


P-+7TW  (^pfls0 


(2.20) 


and  the  energy  equation  becomes: 


(pC-T),+7T^(^pC-  u'i;) 


_J d_ 


(  r  k  dr  tm  ^ 

Vg        .2 

[  h, 


+  Sf 


(2.21) 


17 


with  the  momentum  equation  given  as: 


(pu*'.   +   TTT^  Vg\ 


g  ae 


uJuj  ^ 


-p. 


-     +     pG     + 


j     J 


+ 


i     a 


j  \ 


Vg    90J 


Vg*1. 


h. 

V  J       J 


ah 


*2<-"'-»  * 


(2.22) 


ah 


+ 


hihj  ae 


?  (puV-c^) 


The  stress  tensor  is: 


a\=H 


e(T 


_i  _a_  (uLj    +  ill  _§_  (  ul)    + 
h.   *>■  VJ        hj   ^  V 


■i  ae 


5ij         gga       f      r~     VF_* 

h.hj  aem    lV8  nmj 


(2.23) 


and  the  dissipation  function  is: 


<D  =  2 


u_ 
h 


•j  J 


5..  + 


2^ 
3 


u 


(1  -5.) 
h    J  y 


h 


(2.24) 


The  only  difference  between  these  equations  and  the  cartesian  coor- 
dinate equations  is  the  additional  terms  in  the  momentum  equation 
for  Coriolis  and  centrifugal  forces.  In  the  energy  equation,  several 
terms  have  been  lumped  together  in  the  source  term: 
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s'  =  ^+p7g  lM^S)+s 


hs  (2.25) 


The  heat  source  term,  Shs>  is  nonzero  only  in  the  fire,  since  gas  radia- 
tion effects  have  yet  to  be  incorporated  into  the  computer  model. 
Furthermore,  since  the  present  study  deals  with  turbulent  flow,  the 
conductivity,  keff,  and  dynamic  viscosity,  |ieff,  are  the  effective  quanti- 
ties which  include  both  the  laminar  and  turbulent  contributions. 

B.     INITIAL  AND  BOUNDARY  CONDITIONS 

In  order  to  solve  the  governing  equations,  both  initial  and  bound- 
ary conditions  must  be  applied  to  the  model. 

1.  Initial  Conditions 

The  initial  conditions  of  the  model  are  the  same  as  the 
conditions  immediately  prior  to  the  ignition  of  the  fire  in  FIRE-1. 
The  air  within  the  vessel  is  assumed  to  be  totally  at  rest,  so  the  entire 
velocity  field  is  set  equal  to  zero.  The  forced  ventilation  does  not 
begin  until  the  fire  starts,  so  that  the  velocity  field  due  to  the  forced 
ventilation  builds  as  the  fire  starts  to  burn.  The  temperature  of  the 
field  is  uniform  and  equal  to  the  ambient  temperature,  which  corre- 
sponds to  a  nondimensional  temperature  of  1.0.  Pressure  and  density 
distributions  are  due  to  the  static  equilibrium  distribution  inside  the 
tank. 

2.  Boundary  Conditions 

The  pressure  vessel  forms  a  solid  wall  around  the  entire  area, 
so  all  velocities  on  the  wall  are  zero;  this  satisfies  the  no-slip  condi- 
tion.     Since  there  is  no  mass  flux  through  the  wall,   all  velocities 


19 


normal  to  the  wall  are  set  equal  to  zero.  Temperatures  on  the  inside 
of  the  wall  are  equal  to  the  temperature  of  the  fluid  immediately  adja- 
cent to  the  wall  eliminating  temperature  discontinuities.  The  follow- 
ing equations  describe  these  boundary  conditions. 

ui  =  0  (2.26) 

TSurf  =  Tnuid  (2.27) 

Continuity  of  heat  flux  must  be  met  at  the  walls. 

a  -k  2L  =  -k  ^ 

4r        f  dn  s   9n  (2.28) 

with  n  representing  the  normal  direction  towards  the  center  of  the 
vessel  and  qr  representing  the  thermal  radiation  energy.  There  is 
heat  conduction  through  the  walls  and  heat  convection  from  the  exte- 
rior walls  to  the  environment  at  the  ambient  temperature. 

Due  to  the  cylindrical  and  spherical  geometry,  there  is  a  sin- 
gularity at  a  radius  of  zero  which  requires  special  treatment.  Several 
different  methods  of  correcting  this  problem  are  discussed  by  Yang,  et 
al.  [Ref.  20:pp.  167-168].  The  method  chosen  for  this  model  involves 
applying  continuity  to  two  consecutive  radial  control  volumes  placed  in 
the  vicinity  of  radius  equal  to  zero.  Of  all  the  methods  investigated, 
this  was  found  to  give  the  best  representation  of  the  flow  and 
temperature  flow  fields. 
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The  boundary  conditions  for  the  control  volumes  adjacent  to 
the  ventilation  control  volumes  are  discussed  in  Chapter  3. 

C.      PHYSICAL  MODELS 
1.     Turbulence  Model 

An  algebraic  model  is  used  to  predict  the  average  values  of 
the  dependent  variables.  More  complicated  models  could  be  used,  but 
the  increase  in  computing  time  does  not  warrant  their  use.  Nee  and 
Liu  [Ref.  32]  developed  a  model  that  obtains  the  effective  viscosity,  |ieff. 
in  recirculating  buoyant  flows  with  large  variations  in  turbulence  levels. 
The  equation,  after  being  transformed  to  the  generalized  orthogonal 
coordinate  system,  is: 


efT    1  1          ^ 

1  ft  3  J (1 

-0 

^o      -1       ' 

9     x      Ri 

(2.29) 


Pr, 


where  Prt  is  the  turbulent  Prandtl  Number  and  the  Richardson  Num- 
ber, Ri,  is  given  as: 


Ri  = 


H_ 
u? 


au1^ 

n 


LV9n 


(£)* 


J2 


(®**J 


2 


l(¥'J»-« 


(2.30) 


with   m   a  unit  vector  in  the  direction  opposite  to  gravity  and  1/H  the 
nondimensional  mixing  length  parameter: 
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TT      =      K 


Vu^U1 
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i  au1 


,2,1  >\ 


du 


j  vh*hj  ae'aej; 


(2.31) 


where  K  is  an  adjustable  constant.       The  effective  conductivity  is 
defined  by  the  following  equation: 


H 


eflf 


Kefr  =:  Pr  +  pr      [lQ 


(2.32) 


2.      Conduction  Model 

As  the  fire  progresses,  the  heat  energy  transferred  to  the 
environment  becomes  increasingly  important.  This  requires  a  model 
for  the  heat  conduction  through  the  vessel  walls.  The  energy  transfer 
is  treated  as  unsteady,  one-dimensional  heat  conduction  through  the 
wall  and  convection  with  a  constant  heat  transfer  coefficient  at  the 
wall  exterior.    The  energy  equation  in  this  case  is: 


(psCpsT)t=7r^  (^ksT^gij)+s 


(2.33) 


with  ps  Cps  being  the  heat  capacitance  of  the  wall  and  ks  being  the 
conductivity  of  the  wall. 
3.     Radiation  Model 

The  radiation  model  is  described  in  detail  by  Raycraft  [Ref. 
30:pp.  22^44]  but  is  summarized  below.  The  radiation  model  used  is 
based  on  three  assumptions.    First,  the  model  only  considers  surface 
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radiation;  this  means  that  the  gas  and  smoke  inside  the  tank  is  con- 
sidered to  be  transparent.  Second,  all  surfaces  are  modeled  as  grey 
surfaces,  with  radiation  diffusely  distributed.  Third,  the  tank  walls  and 
the  flame  of  the  fire  are  treated  as  surfaces.  The  radiation  model  is 
based  on  the  net  radiosity  model  discussed  by  Sparrow  and  Cess  [Ref. 
33].   The  net  rate  of  heat  loss  per  unit  area  is  given  as: 

—  =2X^0-  Tj  (2.34) 

i      j=i 

with  the  following  definitions: 

e 


G^yrr^-V 


(2.35) 


^ij-Xu  (2.36) 


A,    ij 


Sij-  (1-eJF^ 


ij  bi  (2.37) 

Fai-aj  is  the  view  factor  for  the  radiation  emitted  by  the  surface  i  and 
incident  upon  surface  j.    Generally,  it  is  given  as 


F         =-3- 
Ai-AJ       A, 


r 


"     cospjCOsPjdAi  dAj 


7i  r2 


A,     Aj  (2.38) 


The  view  factor  calculations  are  given  in  detail  by  Raycraft  [Ref.  30: pp. 
29  through  44]. 
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4.      Internal  Ventilation  Model 

The  internal  ventilation  model  allows  the  user  to  set  up 
forced  internal  ventilation  in  the  field.  This  would  normally  represent 
outlets  of  the  ship's  ventilation  system,  but  could  also  model  ventila- 
tion due  to  damage  (i.e.,  ruptured  air  lines  or  ventilation  ducts)  or 
damage  control  smoke  removal  equipment.  The  internal  ventilation 
model  defines  a  velocity  in  one  or  more  control  volumes. 
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III.    FINITE  DIFFERENCE  EQUATIONS  AND  CALCULATIONS 

A.      INTRODUCTION 

The  numerical  solution  for  the  computer  model  has  space  and 
time  as  the  independent  variables,  and  velocity  (in  three  directions), 
pressure,  temperature,  and  density  as  the  dependent  variables.  With 
six  unknown  dependent  variables,  six  equations  are  needed  to  obtain  a 
solution.  The  conservation  of  mass  equation  (Eqn.  2.20),  conservation 
of  energy  equation  (Eqn.  2.21),  conservation  of  momentum  equations 
(Eqn.  2.22),  and  the  equation  of  state  (Eqn.  2.6)  are  used.  These 
equations  are  discretized  in  a  method  similar  to  that  described  by 
Doria  [Ref.  34],  based  on  the  general  discretization  concept  presented 
by  Patankar  [Ref.  35].  Doria  divided  the  domain  into  separate  control 
volumes  and  wrote  conservation  equations  for  each  cell  in  an  integral 
form.  These  integral  equations  became  a  set  of  finite  difference  equa- 
tions which  could  be  solved  to  provide  a  solution. 

In  the  flow  field,  each  cell  is  treated  as  a  unit,  with  one  value  of 
each  property  reigning  throughout  the  cell.  The  center  of  the  cell 
determines  the  value  of  temperature,  pressure  and  density.  The 
velocity  grids  are  staggered  one-half  cell  away  from  the  center. 
Patankar  [Ref.  35:pp.  115-120]  describes  two  problems  which  arise 
when  the  velocity  cells  are  coincident  with  the  basic  cells.  First,  the 
velocity  at  the  staggered  cell  center  is  calculated  as  a  function  of  the 
pressure  differential  between  the  two  adjacent  nonstaggered  cells.    If 
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the  cells  were  not  staggered,  the  velocity  would  be  calculated  based  on 
the  pressures  of  adjacent  cells,  which  are  twice  as  far  away  as  in  the 
staggered  cell  case.  Second,  staggered  cells  preclude  unrealistic 
oscillating  solutions. 

Employment  of  primitive  variables  presents  a  problem  with  the 
coupling  of  the  pressure  term  in  different  equations.  Others  have  used 
the  stream  function  to  eliminate  this  coupling  [Refs.  14-19]  but  in  the 
present  case,  with  the  desire  to  determine  the  pressure,  this  method 
is  inappropriate  for  the  reasons  cited  in  Chapter  1.  In  the  computer 
code,  an  iterative  procedure  is  used  to  estimate  pressure.  To  ensure 
that  the  results  are  physically  realistic,  a  numerical  method  must  not 
violate  the  conservation  properties.  Patankar  [Ref.  35:pp.  120-126] 
and  Doria  [Ref.  34:pp. 26-32]  describe  the  method  of  satisfying 
conservation  by  correcting  the  estimated  pressure  to  ensure  that  mass 
is  conserved  at  every  cell.  In  addition  to  the  local  pressure  correction, 
a  global  pressure  correction  is  included  to  account  for  the  total  energy 
change  in  the  system,  as  described  by  Nicolette,  et  al.  [Ref.  4]. 

In  the  finite  difference  method,  differential  elements  are  replaced 
by  finite  quantities  in  the  integral  form  of  the  equations.  Many 
methodologies  have  been  developed  for  dealing  with  the  differencing 
techniques  and  each  has  inherent  features  and  problems.  The  QUICK 
methodology  (Quadratic  Upstream  Interpolation  for  Convective  Kine- 
matics) developed  by  Leonard  [Ref.  36]  is  used  here  for  the  convective 
terms.  QUICK  uses  locally  two-dimensional  quadratic  interpolation 
functions  for  estimating  control  volume  face  values  and  gradients  of 
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transported  variables.  It  is  third-order  accurate  and  permits  practical 
grid  sizes.  Yang  [Ref.  13]  employed  QUICK  in  the  coupled  momentum, 
energy,  and  pressure  equation  solutions  for  three-dimensional  flow  in 
tilted  rectangular  enclosures. 

B.      CONTROL  VOLUME 

When  defining  the  problem  to  be  solved  numerically,  the  flow 
field  is  divided  up  into  finite  elements,  or  cells  that  together  make  up 
the  entire  field.  At  the  center  of  each  cell  is  a  grid  point  that  is 
defined  as  the  governing  point  of  the  cell.  In  discussing  the  grid 
points,  the  following  nomenclature  is  used.  The  grid  of  interest  is 
called  P  (I,  J,  K),  with  adjacent  grids  being  defined  as:  East  (1+1,  J, 
K),  West  (1-1,  J,  K),  North  (I,  J+l,  K),  South  (I,  J-l,  K),  Front  (I,  J, 
K+l),  and  Back  (I,  J,  K-l).  The  boundaries  of  the  cell  with  grid  point 
P  are  designated  by  lower  case  letters,  or  e,  w,  n,  s,  f,  and  b.  Figures 
3.1  and  3.2  shows  typical  cells  in  cylindrical  and  spherical  coordinate 
systems. 

As  previously  discussed,  velocities  are  defined  in  a  staggered  grid 
system.  To  illustrate  this,  Figure  3.3  shows  a  two-dimensional  cell; 
Figure  3.4  shows  the  location  of  the  staggered  velocities  around  the 
grid.  The  velocity,  u\,  for  the  basic  cell  is  located  on  the  west  face; 
UJ  is  on  the  south  face;  and  u^  (not  shown)  is  on  the  back  face.  In  all 
cases,  the  staggered  cell  system  is  offset  one-half  cell  from  the  pri- 
mary cell  system. 
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Figure  3-1.    Basic  Cylindrical  Cell 
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Figure  3-2.    Basic  Spherical  Cell 
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Figure  3-3.    Two-Dimensional  Basic  Cell 


Figure  3-4.   Two-Dimensional  Staggered  Cell 


30 


C.     INTEGRATION  OF  CONSERVATION  EQUATIONS 

To  discretize  the  conservation  equations,  it  is  first  necessary  to 
put  them  into  an  integral  form  by  integrating  over  the  volume  of  a  cell. 
The  continuity  equation  becomes: 


J 


|^h1h2h3de1de2de3-f 


j 


A(P",h2h3)+-^(pu2h3h1)  + 

_do  do 


A     ,^2      ,~3 


+  -^(Pu3h1h2)   de'de'de=o 


(3.1) 


and  the  energy  equation  is: 


f  ilLgpI)  hlh2h3de1d92d93  + 


ae 


r(pCp„u'Th2h3)  + 


^(pCp.u!Th,h3)  +  ^(pCp.u'Th1h!) 


d9'  d92  d83 


^(^!hs)+^(o,h8)+^tfh1h!) 


de1  de2  de  + 


JSh1h2h3de1de2d0: 


(3.2) 


with: 


i  k    dT 

q  "     h,  ae1 


(3.3) 
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The  momentum  equations  are: 


f 


Jj-Cpu1)!^  h2h3d91d02  d93  + 


aeJL 


dO1  dO2  d93 


a  rrh!h2h3^ 
ae1 1       ht 


de1  de2  de^/pG^jh^gde1  de2de2 
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f      ii     hlh2    h.^     ._1 


aeJ 


i)  1         2        3 


2      .„3 


de  de  de 


c   hl  h2  h3 


ah, 


j  ,,t     « 


ae 


j-  (pii'ii'-a") 


de1  de2  de3 


+ 


r  h1h2h3 
hJhi 


ah 


L  ae 


flpu'u'-o1) 


de1  de2  de3 


(3.4) 


D.     CONTINUITY  EQUATION 

Once  the  governing  equations  have  been  integrated,  the  differen- 
tial elements  are  replaced  with  finite  quantities.  Three  separate 
differencing  methods  are  used  in  the  computer  model:  forward  dif- 
ferencing for  time,  central  differencing  for  the  diffusion  terms,  and 
QUICK  for  the  convection  terms. 

In  forward  differencing,  the  future  value  of  a  given  parameter  is 
found  by  adding  its  present  value  to  the  net  change  over  a  finite  time. 
This  change  is  described  by  the  rate  of  change  (slope)  multiplied  by 
the  time  step.    For  example, 
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n  _   /-»n-l 


pn  =  pn~'  +  m  At 


(3.5) 


with  p11*1  representing  the  present  value  of  density,  m  is  the  rate  of 
change,  pn  is  the  future  value,  and  At  is  the  time  step.  Substituting 
this  into  the  continuity  equation  (3.1)  results  in: 


d0  Pn-Pn_1  1  2  3  Pn-Pn_1 

-£  dV  =  H     A[       h,  h2  h3  A61  A62  A63  =  P     £         AV         (3.6) 


By  evaluating  the  integral,  the  continuity  equation  becomes: 


(  pn  -  pn_1 )  4f  +  [p  u1  h2  h3  de2  de3"  -  [p  u1  h2  h3  de2  de3^ 


At 


+  [pu2h1h3d91d93]    -  [pu2h1h3d91  d93]   +  (3.7) 


+  [p  u3  hj  h2  de1  d62]  -  [p  u3  h,  h2  de1  de2]   =  0 


The  mass  flux  rate,  G,  is  evaluated  at  each  of  the  six  cell  faces: 


Ge  =  (puMe  =  u 


(3.8) 


Gw=(pu!  )w  =  u 


w 


(pp(h1Ae1),.1+Pw(h1Ae1)1) 
((h1Ae1)1_1  +  (h1  Ae1),) 


(3.9) 


Gn=(pU2)n=U2 


(Pp(h2Ae2)J+1  +  pN(h2Ae2)J) 


(3.10) 
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2   1       _  ,,2 


G  s  =   (  p   U2   )  a   =  U 


(3.11) 


Gf=  (pu3)f  =  u| 


(Pp(h3A93)k+1+pF(h3Ae3)k) 
((h3A03)k+1  +  (h3Ae3)k) 


(3.12) 


Gb=(pu3)b  =  u 


b        "b 


(pp(h3A93)k_1+pB(h3A93)k) 
((h3A03)k.1  +  (h3A93)k) 


(3.13) 


with  the  area  of  the  faces  given  as: 


Ae.w  =  (h2A92h3A93)c,w 


(3.14) 


An,s  =  (h1A91h3A93)n. 


(3.15) 


Afb=(h1  A9]h2  A92)f 


(3.16) 


In  the  finite  difference  format,  the  continuity  equation  becomes: 


(pn  -p"-')  AV 
At 


+  Ge-Gw  +  Gn-Gs+Gf-GB-Smp 


(3.17) 


with  Smp  defined  as  the  mass  source  term.  In  an  analytical  solution, 
this  mass  source  term  is  zero,  but  in  numerical  solutions  it  is  a  finite 
nonzero  term.  Through  iteration,  the  numerical  solution  converges 
and  the  mass  source  term  approaches  zero.    Instead  of  converging  to 
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zero,  the  source  term  is  set  equal  to  zero  when  it  is  less  than  or  equal 
to  10-™. 

E.     ENERGY  EQUATION 

The  integrated  energy  equation  is: 


[(pCpm  T)n-(pCpm  T)n"  ]4r-+Ge(CpmT)eAe-Gw(CpmT)wAw  + 


At 


Gn(CpmT)nAn-Gs(CpmT)sAs  +  Gf(CpmT)fAf-Gb(CpmT)bAb  = 


+   kn  An 


3T     A 


h2ae  j 


—  ks  A 


3T 


h2ae 


2  ~     kf  Af 


3T     ^ 


h3ae  j 


+  kbAb 


(      dT 


T      +S,  AV 

h„ae  J       f       (3.i8) 


V  "3 


where  all  k's  represent  effective  values.  Sf  is  the  source  term  and 
includes  dissipation,  radiation,  pressure  work,  and  all  internal  heat 
sources.  J  is  the  total  heat  flux  resulting  from  convection  and 
conduction. 


J .  w  — 


(pcpmu'T)  -  kefr  -^ 

hj  d0 


(3.19) 


J  n.s    - 


(pCpmu2T)    -  ktlr   -f-j 

h„  90 


(3.20) 
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Jl= 


(pCpmu3T)    -  kefT   -^-3 

h3ae 


(3.21) 

f.b 


These  equations  are  the  01,  02,  and  93  components  of  the  total  heat 
flux.  The  subscripts  refer  to  the  face  to  which  they  correspond.  The 
term  (p  Cpm  u1  T)  causes  problems  since  u  is  evaluated  at  the  cell  sur- 
face, but  all  other  values  are  evaluated  at  the  cell  center.  Because  of 
this,  when  using  these  equations,  the  fluxes  must  be  expressed  in 
terms  of  Cpm,  p,  and  T  at  the  point  P  and  its  neighbors.  Substituting 
these  equations  into  the  integrated  energy  equation,  the  finite  differ- 
ence energy  equation  is: 

[(pCpmT)n  -(pCpmT)n_1]  ^+j;Ac-J^Aw  + 

+  Jn2An-J:As   +  Jf3Af-J^Ab=S    AV  (3.22) 

Of  the  many  finite  differencing  methods,  the  QUICK  scheme  is 
used  with  the  convective  terms  because  it  accurately  predicts  the 
dependent  variable  values  at  the  control  volume  surfaces  with  stable 
properties.  QUICK  has  the  relative  accuracy  of  the  central  differenc- 
ing scheme  coupled  with  the  stability  of  an  upwind  scheme.  It  uses  a 
parabolic  polynomial  interpolation  to  fit  the  control  volume  at  three 
adjacent  nodes.  Yang  [Ref.l3:pp.  77-89]  describes  QUICK  in  one,  two, 
and  three  dimensions.  Raycraft  [Ref.  30:pp.  63-74]  developed  the 
finite  difference  energy  equations  using  the  QUICK  scheme.     Since 
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this  method  is  used  in  the  computer  model,  the  derivation  is  repeated 
here. 

The  quadratic  interpolation  for  a  nonuniform  grid  is  given  as: 


(PCpmuT)    =GeC 


pm  .e 


-V-J-iCURVe 


(3.23) 


(PCpmvT)     =GWC 


pm  .w 


TP+Tw"l  1 

^-J-1CURV 


(3.24) 


Figure    3.5    shows    the    one-dimensional    scheme.    The    upstream 
weighted  curvature  terms  CURV  are: 


CURV  m  =  —~ 
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w         J 
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Figure  3-5.    One-Dimensional  Quadratic  Interpolation  Scheme 
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with 


AXe  =  0.5  (AX,  +  AXj+1) 


AXW  =  0.5  (AX,  +  AX.^) 


AXec=0.5(AX1+1  +  AX1+2) 


(3.27) 


AXW  =0.5(AX._1  +  AX1_2) 


In  generalized  orthogonal  coordinates,  the  equations  becomes: 
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A   ,2 


(h,  AG'  );    f  TE-Tp  Tp-Tw  >| 

(h^G1),    [(hjAG'je        (h1A01)w 


ifGw<0  (3.31) 


and 


(hjAG1)    =0.5  [(hjAe1)   +  (hjAG1) 
(h,  AG1)     =0.5  [(hjAG1)   ^-(hjAe1) 
(h,  A01)      =0.5r(h1A91)      h-^jAG1)  (3.32) 

<*  L  i  +  1  i+2  J 

(h.Ae1)      ^[(h.Ae1)     +(h,A9')     1 

The  conventional  finite  difference  form  of  Eqn.   3.22  for  a  one- 
dimension  system  is: 


[(PCpmT)n-(pCpmT)n-1]  h1 


AV 
At 


=    AETE  +  AwTw-ApTp+s(h1A91) 


(3.33) 


Using  a  semi-implicit  tri-diagonal  solution  procedure,  both  Tee  and 
Tww  are  included  in  the  source  term.    The  remaining  coefficients  are: 


AE  = 


Cpm.e(-7Ge+3|Gc|) 
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Ap  =  ll  (Gw  CPm.w  -  Ge  Cpm,)  +  3  (|GW|  Cpm.w  +  |Ge|)  +  %^    (3.36) 

hjAG 


Sp  =  Sh1A91-Cpin.e(|Ge|-Ge)TEE-Cpm.w(|Gw|  +  Gw)Tww    (3.37) 

The  three-dimensional  QUICK  algorithm  uses  locally  quadratic 
interpolation  of  temperature  through  each  control  volume.  Figure  3.6 
shows  the  calculation  cell  for  a  three-dimensional  uniform  rectangular 
grid.  The  cylindrical/spherical  grid  system  used  in  the  computer 
model  is  more  complex,  although  conceptually  the  same.  Yang  [Ref. 
13]  discusses  the  evaluation  of  the  curvilinear  and  temperature  terms. 
Basically,  curvature  terms  are  calculated  for  each  of  the  temperatures 
and  substituted  for  the  convective  heat  flux  terms.  Heat  flux  is  calcu- 
lated and  substituted  into  Eqn.  3.22. 

After  separation  of  variables,  the  energy  equation  becomes: 

[T  n-1  I    AV  T  T  T 
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+  a^ts+aJtf  +  a^tb  +  stu 

with  the  additional  source  term, 
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Figure  3-6.    Calculation  Cell  for  a  Uniform  Rectangular  Grid 
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CN  =  Gn-u;,*(h3A93)  (h.AS1) 

n  n 

CS  =  G9*u*    *  (h3A63)  (hjAG1) 

s  s 

CE=Ge*u;+1    *  (h3A03)c  (h2A02)c  (3-40) 
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w  w 
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CB=Gb*<  »(h1A91)  (h2A92) 


Thermal  conductivity  is: 
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kk*(h3A93)  kk+1*(h3AG3) 


k+l 


(h3A63)    +(h3Ae3) 


k+l 


kL  = 


+ 


kk»(h3A83).         kk.1«(h3Ae3) 


k-1 


(h3A63)     +(h3A93) 


k-1 


CONDN1  = kn * 


(h3  AG3  *h,  AG1  ", 
h2AG2 


CONDSl  =  kQ  * 


rh3  AG3  *  h,  AG1 
h2A62 


CONDE 1  =  k  e  * 


(h3  AG3*h2  AG2  "i 
hj  AG1 


(3.42) 


CONDW  1  =  kw  * 


(h3  AG3  *  h2  AG2' 
h,  AG1 
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CONDF1  =k   * 


(h,  A01  *h>    A92  ") 


h3Afr 


CONDB1  =  k    * 

b 


h,  AO  *  h2  A0' 
h3A93 


M 


In  equations  (3.41)  and  (3.42),  all  k's  are  the  effective  values. 


CEP  = 


|CE  |  +CE 
16 


(h.AO1) 


CEM  = 


|CE  |  -CE 
16 


(h,Ae')e 

(h,  A6') 

i  +  1 


CWP  = 


cw[  +  cw 

16 


(h,  A91) 
(h,  A6') 


CWM  = 


CW  1  -CW 
16 


(h,  Arf) 


„m      |CN|+CN     (h^A92). 

CNP  =  ' tc 7 5V 

16  (h2A62) 


CNM  = 


CN|  -CN 
16 


0^0 

K  Ae2) 


(3.43) 
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„m    [csl  +  cs    (h=Ae2) 

CSP  =  L 


16        (h2  Ae2) 
j-i 


CSM^,csl-cs  (h>0 


16  (h2AG>) 

J 


,        .      ^      (h3A03) 

CFp  =  iCF  I  i-  CF 


CF    -  CF 

CFM  =  LU 


16  (h3A63)j 

(h3Ae3) 


16 

k+l 


CBp  =  |CBl+03 


CBM  =  |03|  +  CB 


16 


(h3  AG3) 

(h,  Ae3) 

(h3  AG3) 

(ha  AG3) 
(h3  AG3) 


16 

k-1 


AEE  _ 


AT       = 

WW 


-CEM  *  (hj  A61) 
(h.AG1) 

ee 

-CWP  *  (hj  A91) 

(h^e1) 
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AT     - 


-CNM  *  (h2  AO2) 
(h2A92) 


T 


-CSP  *  (h2  A62) 
(h2A92) 


Ass  =  "     T, T^T"  (3.44) 


AFF  ~ 


ff 


ABB    ~ 


-CFM  *(h3  A93) 
(h3A93) 

-CBP  *(h3  A93) 

(h3A93) 
bb 


A  =  AT      *   T         *   P 

EER         "^EE  x  i+2  ^pm(+2 


A  =   AT        *   T  *   C 

WWR  WW  i-2  V  pm  ,.j 


A  =  AT      *  T        *   C 

NNR  NN  j+2  vpm  J+2 


T 


ASSR    ~ASS     *    TJ-2    *     Cpm),  (3.45) 


A         =  AT     *  T         *   C 

FFR  FF  k+2  Pmk-2 


A  =  AT      *  T         *   C 

■"■BBR  BB  k-2  vpmk., 


The  intermediate  coefficients  are  : 
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AEI    _ 


-0.5  *  CE  +  CEP  +  CEM  * 


1  + 


(h,  Ae1) 
(h,  Ae1) 


+ 


ce   _ 


+  CWM  * 


(h,  A61) 


(3.46) 


Am  =  0.5  *  CW   +  CWM  +  CWP   * 


1  + 


(h,  A6') 
(h,  A6') 


+ 


+  CEP  * 


(hlArf) 


(3.47) 


ANI    - 


-0.5  *  CN  +  CNP  +  CNM  * 


1  + 


Q2Ae2) 

(h2  AG2) 


+ 


nn   _ 


+  CSM  * 


(h2A62) 


(3.48) 


AS1  =  0.5  *  CS  +  CSM  +  CSP  * 


1  + 


(fa,  A62) 

(h,  Ae2) 


+ 


+  CNP  * 


(h2A92) 
(h2  A62) 


(3.49) 
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Ar  =  -0.5  *  CF   +  CFP  +  CFM 


Fl 


1  + 


(",  A93) 

(h3  Ae3) 


+ 


+  CBM  * 


(h3Ae3) 

(h3  A63) 


(3.50) 


AB]  =  0.5  •  CB  +  CBM  +  CBP   « 


1  + 


(h3  Ae3) 
0»,  Ae3) 


+ 


bb  J 


+  CFP  * 


(h3  Ae3) 


(3.51) 


The  coefficients  are: 


Al  =  AF  *  C      _  +  CONDE1 

E  EI  pm  £ 


A'    =  Au   *  C      w  +  CONDW  1 

W  WT  pm  .W 


A„  =  A„.  *  C      „  +  CONDN1 

N  NI  pm  .N 


(3.52) 


A-  =  A_.  *  C      ,  +  CONDS1 

S  SI  pm  .S 


A'  =  AF  *  C      _  +  CONDF  1 

F  FI  pm  F 


K     =AB1*CpmB  +  CONDB1 


ApT  is  the  sum  of  all  the  values  of  A. 
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AT  n  *     (  AT  AT  AT  AT         AT  AT  AT  AT 

AP        -        Lpm.p         VAE   +AW   +  AN    +  AS  +  AF  +  AB  +  AEE  +  AWW  + 

+  ArNN  +ATSS  +ArFF  +AbB)   +CONDE1   +    CONDW  1    +     (3.53) 
+  CONDN2    +  CONDS 1   +  CONDF 1   +  CONDB 1 

F.      MOMENTUM  EQUATION 

The  integrated  momentum  equation  is  given  as: 

(puM.V  +  M^A.-M1,1  Aw  +  Mni2  An-Mis2A3  + 

+  Mfi3Af-Mb3Ab     =    S1 

with  Ai,  the  area  of  the  staggered  cell  given  by  Eqns.  3.14  through 
3.16.  My  represents  the  total  momentum  flux  in  the  01.]  direction  due 
to  convection  and  diffusion  for  the  u1  velocity  component.  M  is  evalu- 
ated at  the  face  noted  and  is  given  by: 

m'J  =(puiuj-oJ1)  (3.55) 

The  source  term  includes  body  force,  pressure  gradient,  centrifugal, 
and  Coriolis  forces  and  for  u1  is  : 

S1  =  -PeAe+    PWAW+  pG'AV   -  M1p2(An-As)  - 
-M]p3(Af-Ab)   +   (M2P2  +  M3P3)(AC-AW) 

Yang  et  al.  [Ref.  20:  pp.  11-13]  describes  the  concept  of  a  "stress- 
flex  formulation"  as  it  applies  to  a  curvilinear  coordinate  system. 
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Stresses  are  calculated  from  previous  information  and  the  source  is 
given  in  the  current  iteration.    The  momentum  flux  is: 


M 


°  =  m\U-<0 


(3.57) 


with 


*,     - 


(3.58) 


M       =     pu'  uJ     -     ft, 


(3.59) 


The  u1  momentum  equation  becomes: 


All  All  A    12 

(pu)t+   Me  Ae-   Mw  Aw+  Mn  An 


A    12 

Ms  As  + 


A   13  A    13  A 

+   Mf   Af    -  Mb  Ab     =     S 


(3.60) 


A 

s 


=     S-   O'-gO    Ae+   (&\-c\)     Aw- 


-   (&]-c\)    An+   (6\-4\)    As- 


(3.61) 


"  (*'-o?)    Af+  (*\-c\)    At 


The  momentum  equation  for  01  is  given  as: 
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(Ap  +p 


n-l       AV\, 


At  ;up 


1  1 

A    U  1  A    U  1 

=     A„  u     +A„ul  + 


e     •-*■  e       '    -1  x  w    "-*  w 


llll 

u  .,1 


A    U  1  a    U  1  aU  1  a    U  1  — ,  U 

+  A„  ul.   +  A0  ui   +  Af  u]f  +Ab  u\  +  S    u 


n     —  n  — s  s 


(3.62) 


The  intermediate  mass  flow  rates  per  unit  area  are: 


[^(h.Ae2)   +Pj(h2A92)     11 
(h2A02)    +(h2A02) 


Gne    =    ~j+l 


G_    =U 


PMlJ«(h,tf)  +P1-1(h2Ae2)    11 

i  J+lJ 


i-l.j+1 


(h2A02)    +(h2A02) 

J  j+i 


[k-i(h2A92)  +Pj(h2Ae2)     1] 

=  u2  <! —  V 

K^)  +(h2A02) 


Pi-i.j-i(h2A62)   +  pi_1(h2^) 


Gsw    =U2_1 


J-l  J 


(h2A02)   +(h2A02) 


\\pM(h,AQ')    +P,(h1A61)     1] 

p        _    ,,1  J    J= £ E_i     I 

"      w  (h.Ae1)  .(h.Ae1) 

I.  e  ee 


Gp  =  u 


Gw  =  u 


[[p,-,(h,Ae1)e  +  p,(h,A91)J1 
'     (  (h1A81)c+(h1A6')w  ) 


,     f[p,.2(h1Ae')w  +  Pl.1(h1Ae1)ww]] 

(h.AS')     +  (h1Ae') 

I.  W  WW 


(3.63) 
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f  [Pi.,  (h3A63)    +pk(h3Ae3)      1| 

_  „3  I   _L k k+1  J     ! 

(h3Ae3)  +(h3Ae3) 


fe         ~k+l 


Gfw~  U?-l.k+l 


[k-i.k+i(h3A63)     -fPl_1(h3A93)      1] 

i     L k  k+1  J 


(h3A93)    +(h3A93) 


k+1 


Gb.  =u3    < 


f  rpk.,(h3Ae3)   +Pk(h3A63)     1] 

L  k  k-1  J    i 


(h3A93)    +(h3A63) 


k-1 


av  1-1 


f[p .-..k-.  (h3A83)    +p,_,  (h3A63)  | 

i    L  k  k-i  J   ! 


(h3A93)    +(h3A63) 


k-1 


The  final  mass  flow  rates  for  the  control  volume  surfaces  are: 
CE  =0.5  (Ge  +  Gp)  *(h2  A92)    *(h3A93) 

e  e 

CW  =0.5  (Gp  +  GJ  *(h2  A92)     *(h3A93)  (3.64) 


CN  =  (h1  A01)      (h3  A93) 


it 


■it 


CS=  (h,  A01)     (h3A93) 


ft 


G 


it 


ffG, 

cf  =  (hIAe,)(  (h.Ae2)^1^ 


h.Ae1)     +GTO(h,A91) 


h,  A91)     +(h1A91) 

w  e  J 

h^e1)    +G8W(h1A91)   1] 

w  _  ej 


h.  A91)    +(h.A91) 

w  e  J 

h.O.+  MhiA9'),Tl 


h.AG')     +(h,Ae') 

w  e  J 
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CB  =  (h,  A6')     (h2  A82) 


f[Gb,(h,Ae')w-t-Gb.(h,Ael)  ]] 

{     [(h.Ae1)  +(h1Ae,)J*   ' 


The  local  viscosity  becomes: 


VISe  =  VIS 


VIS    =  VIS. 


w  i-1 


VISn  = 


VIS.  = 


VISf  = 


VISb  = 


(VIS  ,  +  VIS  +  VIS.  .  .  .  +  VIS,  . ) 

v  j+1  i-l.  j+1  i-1  ' 


4.0 

(vis^ 

+  VIS 

+  VIS, 

-l.j-1 

+ 

VIS,_ 

,) 

4.0 

<visk+1 

+  VIS 

+  VIS,. 

-1.  k+1 

+ 

VIS,. 

.,) 

4.0 

Cvis^ 

+  VIS 

+  VIS, 

-1.  k-1 

+ 

VIS. 

i 

-,) 

(3.65) 


4.0 


VISM  =  VISn  * 


(h3A93)(h1A01) 


h2A9' 


VISS1  =  VISS  * 


(h3A93)(h1A91) 


h2A9 


VISEl  =  VIS,  * 


(h2A92)(h3A93) 


hj  A9 


(3.66) 
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VISW1  =  VIS    * 


(h2A92)(h3A93) 


h1  AG 


VISF1  =  VISf  * 


(h.Ae^Ch.AG2) 


h3A9' 


VISB1  =  VISb  * 


(h1A91)(h2A02) 


h3A9^ 


The  coefficients  for  the  momentum  equations  are: 


A         s  A        *   i] 

EER  EE  i+2 


A  —  A  *    i] 

"^WWR  WW  "  i-2 


U  i 

A  =      A  *      1  ] 

NNR  NN  "j+2 


(3.67) 


u  i 

A  =   A         *   11 

SSR  SS  j-2 


u  , 

A         —    A         *    n 

"^FFR  ^FF  Uk+2 


A  A  *    n* 

-""BBR    ~    ^BB  uk-2 


The  values  of  the  coefficients  A  are  given  as: 


a;    =    AFJ  +  VISE1 

E  El 


Aw     =    Aw  +  VISW1 
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AN     =    ANI  +  VISM  (3.68) 


As   =   asi  +  visa 


AUF     =    AFI  +  VISF1 


AB     =     ABI  +  VISB1 


The  value  of  Aup  is  the  summation  of  all  of  the  values  of  A: 

uuu  uuuuu  u 

Ap  =  AE  +  Aw  +  AN  +  As  +  AF  +  AB  +  A£E  +  Aw  + 

u  uuu 

+     ANN    +  ASS    +   AFF    +  ABB  (3.69) 

The  source  term  is  given  as: 

[p(h,A61)w+p1_1(h,A8')J  _ 

Su  =       [(h.Ae'^Ch.AOJ     *At*u  + 

+  (h2A92)    (h3A93)     (P,_1-P,)+AEER+AWWR+ANNR  + 

J  k 

+  A^  +  AFFR  +  ABBR  +  RE  -  RW  +  RN  -  RS  =  RF  -  RB  + 
+  RRY  +  RRZ  -  RRX  -  Buoy    *  {sin  [ZC  (K)  ]  *  ( p  -  p^)  * 

♦  (h^e^^^ostXCdJJj+^p^-p^jfh,  A9!)e*     (3.70) 
*cos[XC(I-  1)]}  A(h1  AG1)    +(h1A01)  1  AV 
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with  XZ  and  ZC  as  the  center  of  the  basic  cell.    The  additional  parame- 
ters are  given  below. 


RE     =     (h2  A92    h3  AG3) 


an-(u11+1-u1))*VISe 
(hi  AG1) 


RW     =    (h2  AG2   h3  A03) 


(h,  A91) 


RN     =     (hj  AG1   h3  AG3) 


c^-(u]+1-u;)*VISn 
(h2  AG2) 


(3.71) 


RS     =     (hj  AG1    h3  AG3) 


a12-(u1-u1>.1)  *VISS 
(h3AG3) 


RF  =     (hl  AG1    h2  AG2) 


<3+1-("L-<)*visf 

(h3AG3) 


RB   =    (h1  AG1   h2  AG2) 


a13-  (u1  -uk  x)  *VIS, 
(h3A93). 


a12     =    0.5(O;:i+<) 


—  13         A    e   /     13  13  \ 

a    =  0.5(ak+1+ok) 


_22 

o 


^(hAO1)    +af_1(h1AG1) 

w 

(h^G1)    +  (h^G1) 


(3.72) 
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-33 

o 


o13(h1A01)     +a^1(h1A91) 

w 

(h,  A61)    +  (h,  A91) 


AU1     =    u1 


AU2     =    i 


^■(h2Ae2)   +  u=(h2A92) 


2   (h2A92) 


(h.Ae1) 


+ 


«w.1«0»,AB,)j+u,wO»,ABO 

2    (h2A92) 


(h,A9') 


}  I 


(3.73) 


/[(h,A9')c+  (h.AtfJJ 


AU3     =    -I 


<,(h3A93)    +u3k(h3A93) 


2   (h3A93) 


(h,A9') 


<x.*A**l*?)    +<i(h3A9s) 


+ 


2    (h3A93)k 
/[(h,A9')t+  (h,A9')w] 


(h,A9')       / 


AR   = 


p(h,A9')w  +   pM(h,AB') 
(h,  A91)    +  (h,  A91) 


ARU12  =  AR  *AU1    *  AU2 
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ARU13  =  AR  *AU1  *  AU3  (3.74) 

ARU22  =  AR  *AU2  *  AU2 
ARU33  =  AR  *AU3  *  AU3 

RRY  =  (o12-ARU12)  (h3A03)  [(h^1)  -(^AG1) 
RRZ  =  (o3-ARU13)  (h2A02)  [(hjAG1)  -(hjAG1)  1 
RRX  =  (  o22 -ARU22)(h3  A93)  |~(h2A92)  -(h2A92)  1  + 
+  (o33-ARU33)  (h2A92)  |"(h3A03)  -(h3A93)  1 

j  L  c  w  J 

The  momentum  equations  in  the  other  two  directions  can  be 
similarly  obtained. 

G.     PRESSURE  CORRECTION 

One  difficulty  encountered  in  employing  primitive  variables  is  the 
difficulty  in  calculating  pressure.  In  a  closed  system,  such  as  FIRE-1, 
there  are  two  causes  of  changes  in  pressure.  First,  there  are  pressure 
changes  throughout  the  field  due  to  a  net  energy  change  in  the  system. 
To  account  for  these  changes,  a  global  pressure  correction  is  applied. 
Second,  there  are  pressure  changes  locally  which  determine  the 
velocity  field.  A  local  pressure  correction  is  included  to  account  for 
these  changes. 
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1.      Global  Pressure  Correction 

A  global  pressure  correction  follows  from  the  two-dimen- 
sional scheme  developed  by  Nicolette,  et  al.  [Ref.  4].  Overall  pressure 
levels  are  increased  or  decreased  depending  upon  whether  energy  is 
added  or  removed  from  the  system.  Since  the  volume  and  mass  of  the 
system  are  constant,  the  sum  of  the  local  density  times  the  local  vol- 
ume will  be  constant,  and  equal  to  the  equilibrium  mass.  Summing 
over  all  of  the  cells, 


Xp?(AV)(     =    IpB9,i(AV)i 


HB.ii"*'i  (3.76) 

with  n  indicating  any  time  and  EQ  indicating  equilibrium. 

Assuming  a  perfect  gas,  density  is  a  function  of  pressure  and 
temperature  only,  since  volume  is  constant.  The  actual  values  of  pres- 
sure and  temperature  at  any  time  are  the  sum  of  an  estimated  value 
and  the  global  correction. 

P=P*  +  Pg  (3.77) 

T=T*+Tg  (3.78) 

with  superscript  *  indicating  the  estimated  value  and  superscript  ' 
indicating  the  global  correction.  By  applying  these  two  equations  and 
the  perfect  gas  law  along  with  Eqn.  3.76,  the  global  pressure  correc- 
tion becomes: 
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Pg= y  AV —^  <3-79> 


This  correction  is  added  to  the  estimated  value  from  the  previous  time 
step,  and  iterated  until  a  globally  corrected  pressure  is  obtained  which 
conserves  mass  in  every  cell. 

2.      Local  Pressure  Correction 

An  iterative  method  involving  the  mass  conservation  equation 
is  used  to  find  the  local  pressure.  Patankar  [Ref.  35:pp.  120-126]  and 
Doria  [Ref.  34:pp.  26-32]  describe  the  method  for  determining  the 
local  pressure  correction.  Initially,  the  pressure  field  is  guessed  or 
the  previous  pressure  field  is  assumed.  Then  velocities  are  calculated 
based  upon  this  assumed  pressure  distribution.  Knowing  the  veloci- 
ties, the  mass  source  term,  Smp  (also  called  residual  mass),  is  calcu- 
lated for  each  cell.  The  magnitude  of  the  mass  source  term  and  the 
sum  of  the  absolute  values  of  every  cell's  residual  mass  serves  as  a 
check  on  the  conservation  of  mass  within  each  cell  and  through  the 
entire  flow  field.  If  Smp  is  close  to  zero,  the  guessed  pressure  field  is 
satisfactory;  if  not,  a  local  pressure  correction  is  calculated  and  the 
process  is  repeated  until  Smp  is  within  the  desired  range.  Once  a  sat- 
isfactory pressure  field  is  found,  the  densities  for  the  next  time  step 
can  be  found  using  the  equation  of  state. 

Similar  to  the  global  pressure  correction,  the  actual  pressure 
equals  a  guessed  pressure  (superscript  *)  plus  the  local  pressure  cor- 
rection (superscript  ')• 
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P  =  P"  +  P  (3.80) 

The  finite  difference  equation  for  the  pressure  correction 
takes  on  a  form  similar  to  the  other  finite  difference  conservation 
equations.   The  equation  for  p'  is: 


ApPp     -    AE  PE  +  Aw  P  w  +  AN  PN  +  ASPS  +  AF  PF  + 


+  ABPB-Smp  AV 


with 


Ap  +  p 


At 


(3.81) 


pe*(h2  A02h3A03)c 
Ae     =  7     „>  AV  \  (3.82) 


pw*(h2A62h3A03) 
Aw     =    r~W AV  S  (3-83) 


2 

pn*(h1  A91h3A93)n 
An     =  T~y  AV  S   "  (3.84) 


ps*  (hj  A01  h3  A03) 
As    =  7       «  AV  \  (3.85) 

lAp +  p^^rJ 
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pf*(h,  ag1  h2  Ae2) 

Af     =        ~TT^  AV  ^  (3.86) 

Ap  +  Pr"AF 


pb*(h1A91h2A9a) 

7  Au3  AV  > 


Ab     =  r~?  AVl <3-87) 


Ap     =    AE+  Aw+  AN+  As+  AF+  AB  (3.88) 


At  the  solid  boundaries  where  the  mass  flux  is  zero,  the  coefficient  A 
which  corresponds  to  the  boundary  is  equal  to  zero.  When  the  final 
corrected  pressure  field  has  been  calculated,  new  velocities  are  found 
from  the  following  equations. 

u1     =    u1*    +    u1'  (3.89) 

u2     =    u2*    +    u2'  (3.90) 

u3    =    u3*  +  u3'  (3.91) 

with 

(Pp-PJ(h2  A92  h3  A63) 

U         = : 


AV 
Ap  +Pw   At  (3.92) 
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u2'    = 


(Pp-P.)  (h1  AO1  h3  A93) 


AV 
Ap  +ps- 


u3'    = 


At  (3.93) 

(Pp-Pb)  (h1  A81  h2  A92) 

AV 
AP  +Pb- 


At  (3.94) 

Smp  is  then  computed;  if  it  is  within  the  desired  range,  the 
calculation  is  complete.  Otherwise  a  new  P  is  calculated  and  the  pro- 
cedure is  repeated. 

H.     VENTILATION  EQUATIONS 

When  forced  ventilation  is  introduced,  the  velocity  equation  for 
the  control  volume  containing  the  ventilation  becomes: 


Apup     =     Aeue+Awuw  +  Anun+  Asus  + 


+  Afuf+  Abub  +  Su 


(3.95) 


with 


A    -1020 

Ap~1U  (3.96) 


20 


Su    =    specified  velocity  *  10  ro  qj\ 

this  causes  the  velocity  in  the  control  volume  to  be  equal  to  the 
desired  values  for  ventilation,  and  not  be  affected  by  the  upwind  or 
other  adjacent  velocities. 
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The  boundaries  of  the  control  volumes  with  specified  velocity- 
require  special  consideration.  The  equation  for  the  downwind  control 
volume  becomes: 


Apup     =     Aeue+Awuw  +  Anun  +  Asus  + 
+  Afuf+ A'bub  +  Su' 
with  the  starred  values  defined  as: 


(3.98) 


Ab    "    a0  (3.99) 


Su      =     Su+Abub  (3.100) 

This  causes  the  ventilation  to  be  the  only  effect  from  the  upwind  cell 
and  represents  a  fixed  velocity  internal  ventilation  system.  The  equa- 
tions for  the  adjacent  control  volumes  whose  boundaries  are  parallel  to 
the  flow  must  also  change.  For  example,  the  equation  for  the  control 
volume  north  of  the  specified  ventilation  control  volume  becomes 

ApUp     =     Ae  uc+Awuw  +  Anun  + A*sus  + 

+  Afuf+  Abub  +  S*u  (3.101) 

with 

S'u     =     Su+2usA9  (3.102) 
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A's     =    °-°  (3.103) 

This  boundary  equation  makes  the  velocity  in  the  entire  volume 
constant,  rather  than  varying  between  the  staggered  cell  center  and 
the  boundary. 
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IV.    EVALUATION  OF  NUMERICAL  DATA 

A.     INTRODUCTION 

The  computer  model  presented  here  was  designed  to  model  fires 
in  the  experimental  pressure  vessel  FIRE-1.  The  theory  of  the  model 
has  been  given  in  previous  chapters.  This  chapter  will  describe  the 
modeling  of  a  fire  with  internal  ventilation  in  FIRE-1.  Although  such  a 
fire  test  has  yet  to  be  experimentally  run,  this  study  will  demonstrate 
the  feature  of  internal  ventilation  in  the  computer  model.  This  is  one 
step  to  make  the  model  more  accurately  represent  real  fires.  The 
parameters  used  in  the  study  will  be  presented  in  this  chapter  and  the 
numerical  solution  process  will  be  summarized.  The  effects  of  differ- 
ent time  steps  in  the  computation  will  also  be  discussed. 

Two  trials  were  conducted,  one  with  internal  ventilation  and  one 
without  ventilation.  A  third  trial  was  conducted  using  the  ventilated 
case,  but  with  different  time  steps  for  the  iterations. 

Pressure,  temperature,  and  velocity  fields  are  generated  from  the 
computer  code.  The  temperature  and  velocity  fields  for  various  times 
will  be  discussed  for  both  the  ventilated  and  nonventilated  cases.  The 
global  pressure  and  thermocouple  temperatures  will  also  be  evaluated. 
The  thermocouple  temperatures  correspond  to  the  temperatures 
found  at  the  location  of  the  actual  thermocouples  in  FIRE-1,  in  the 
north  end  cap  (shown  in  Figure  4.1).    Additionally,  the  global  pressure 
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Figure  4-1.   Thermocouple  Locations 
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and  one  thermocouple  temperature  will  be  compared  for  the  cases 
with  different  time  steps. 

B.     NUMERICAL  SOLUTION  PARAMETERS 

Various  parameters  are  input  into  the  numerical  model  in  order 
to  model  a  particular  fire.  These  parameters  include:  initial  condi- 
tions, fuel  heat  release  rate,  location  of  the  fire,  geometry  of  the 
enclosure,  and  physical  characteristics  of  the  enclosure,  including 
heat  transfer  coefficient  and  fluid  properties  inside  the  enclosure. 
Other  items  could  be  added,  depending  upon  the  complexity  of  the 
model:  decks,  equipment,  fire  extinguishing  systems,  and  combustion 
parameters.  These  are  planned  to  be  added  to  this  model  in  the 
future.  The  location  of  sensors  and  the  physical  description  of  FIRE-1 
is  given  in  Chapter  1.  The  ventilation  fan  locations  are  shown  in  Fig- 
ures 4.2  and  4.3.  The  material  properties  used  in  this  thesis  are  listed 
in  Table  4.1. 

The  numerical  model  of  FIRE-1  uses  a  cylindrical/spherical  coor- 
dinate system  shown  in  Figures  4.2  and  4.3.  The  grid  is  spherical  in 
the  end  caps,  with  9,  R,  and  ({)  directions,  and  cylindrical  in  the  mid- 
section, with  0,  R,  and  Z  directions.  There  are  14  cells  in  the  R 
direction;  one  cell  represents  the  tank  wall  and  another  is  in  the 
vicinity  of  R  =  0  and  is  used  to  avoid  singularity  at  the  origin.  Each 
end  cap  has  six  (j)  cells;  again,  one  cell  is  used  to  avoid  singularity.  The 
mid-section  has  18  Z  (or  <j>)  cells  and  there  are  20  cells  in  the  0  direc- 
tion oriented  counterclockwise.    Although  a  finer  grid  could  be  used  to 
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Figure  4-2.   Ventilation  Location  in  Computer  Model  (End  View) 
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Figure  4-3.    Ventilation  Location  in  Computer  Model  (Front  View) 
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TABLE  4. 1 
SPECIFIC  MODEL  PARAMETERS 


Wall  Characteristics 

Material 
Thickness 
Specific  Heat 
Thermal  Conductivity 
Density 

Fire  Characteristics 

Burn  rate 

Initial  Temperature 

Initial  Pressure 

Location 


Ventilation  Characteristics 

1.      Velocity 
Direction 
Location 


Velocity 

Direction 

Location 


ASTM  285  Grade  C  Steel 

3/8    inch 

0.1  Btu/  (lbmF) 

25   Btu/  (hr  ft  F) 

487  lbm/  ft3 


A  Given  Function  of  Time 

35.6  C. 

1.0  Atm 

Center  of  FIRE-1 
23.1  ft  from  end 
3.21  ft  from  bottom 


3.18  ft/  sec 

South  to  North 

11.1    ft  from  end 
4.0     ft  from  bottom 

3.18  ft/  sec 
North  to  South 

35.5  ft  from  end 

13.6  ft  from  bottom 


give  more  accurate  solutions,  the  limitations  of  the  computer 
resources  required  that  the  grid  not  be  enlarged.  Table  4.2  presents 
additional  information  concerning  the  model  parameters. 
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TABLE  4.2 
GENERAL  MODEL  PARAMETERS 


Grid 


Number  of  Interior  Cells  6,720 

Number  of  Tank  Wall  Cells  560 

Number  of  Wall  Radiation  Zones  560 

Number  of  Fire  Radiation  Zones  1 9 

Cells  in  the  9  Direction  20 

Cells  in  the  R  Direction  1 4 

Cells  in  the  §  Direction  (six  in  each  end  cap)  1 2 

Cells  in  the  Z  direction  (in  the  mid-section)  18 

Time  Step 

Varied  0.0192-0.0288  Sec 

CPU  Time  (1  CPU  hour)  0.6-0.8  sec  fire  time 

External  Heat  Transfer  Coefficient  15.0  Btu/  (hr  ft2  F) 

C.     NUMERICAL  SOLUTION  PROCESS 

Two  separate  programs  comprise  this  model;  the  first  is  a  surface 
radiation  preprocesser  program  which  calculates  the  view  factors. 
The  main  program  is  similar  to  that  presented  by  Nies  [Ref.  29:pp.  54- 
57]  and  Raycraft  [Ref.  30:pp.  96-97].  The  first  part  of  the  main  pro- 
gram establishes  the  initial  parameters  and  inputs  the  view  factors. 
Then  the  effective  viscosity  is  computed  in  Subroutine  CALVIS.  Every 
two  time  steps,  the  wall  radiation  flux  is  recalculated.  Temperature, 
pressure  and  velocity  are  computed  in  subroutines  using  a  semi- 
implicit  technique  which  solves  the  finite  difference  equations.  Sub- 
routine CALT  is  then  called  to  determine  the  temperatures,  followed 
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by  the  computation  of  the  pressure  and  global  pressure  correction. 
Then  the  velocities  and  local  pressure  corrections  are  computed;  the 
local  pressure  correction  updates  the  velocities.  With  the  corrected 
velocities,  continuity  is  applied  to  each  cell  and  the  residual  mass  is 
found.  The  sum  of  the  absolute  value  of  every  cell's  residual  mass  is 
called  the  residual  mass  source,  RESORM.  The  magnitude  of  RESORM 
indicates  whether  the  pressure  corrections  are  sufficient.  If  RESORM 
is  too  large,  the  program  recalculates  the  velocities  and  pressures 
until  RESORM  comes  within  the  desired  range.  If  RESORM  is  greater 
than  10.0,  the  program  stops  because  this  only  happens  when  there  is 
a  stability  problem.  If  this  occurs,  the  time  step  must  be  reduced  and 
the  program  restarted  using  data  from  a  previous  step.  To  economize 
computer  time,  the  temperature,  global  pressure,  and  density  are  only 
calculated  every  third  iteration.  The  iterations  continue  until:  (1) 
RESORM  is  below  the  predetermined  value,  (2)  the  maximum  number 
of  iterations  has  been  reached,  or  (3)  the  CPU  time  presently  available 
is  insufficient  to  complete  another  iteration. 

D.     VENTILATION  RESULTS 

The  numerical  model  was  used  to  evaluate  two  fire  scenarios:  one 
included  internal  ventilation  and  the  other  did  not.  The  specific 
parameters  of  the  model  were  discussed  previously.  The  validity  of 
the  ventilation  model  will  be  evaluated  and  the  numerical  results  of 
the  internal  ventilation  case  will  be  compared  to  the  nonventilated 
case. 
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A  direct  comparison  can  be  made  by  looking  at  the  spatial  and 
temporal  variations  of  the  velocity  and  temperature  fields.  Although 
these  fields  are  three-dimensional,  they  are  presented  in  a  two- 
dimensional  form  at  three  representative  sections  in  the  tank,  shown 
in  Figure  4.4.  Section  A  is  the  mid-section  front  view,  which  cuts  the 
vessel  vertically  along  the  axis  (Y-Z  plane).  Section  B  is  the  mid-sec- 
tion end  view  from  the  south  end,  cutting  the  vessel  through  the  mid- 
dle of  the  vessel,  perpendicular  to  the  axis  (X-Y  plane).  Section  C  is 
the  section  view  at  the  base  of  the  end  cap  from  the  south  end,  which 
is  also  cut  perpendicular  to  the  axis  but  at  the  intersection  of  the 
cylindrical  and  spherical  portions  of  the  tank  (X-Y  plane).  The  venti- 
lated and  nonventilated  temperature  and  pressure  fields  for  the  times 
30,  60,  90,  120  and  150  seconds  are  shown  in  Figures  4.5  through 
4.35. 

Many  observations  can  be  made  in  analyzing  the  field  plots,  but 
only  the  major  phenomena  will  be  discussed  here.  Raycraft,  et  al.  [Ref. 
38]  discuss  the  results  of  the  nonventilated  computer  model.  In  this 
thesis,  discussion  will  be  limited  to  comparisons  of  the  two  cases  and 
some  general  comments.  Particularly  interesting  phenomena  include 
the  flame  plume,  global  velocity  field,  ventilation  effects,  temperature 
stratification,  and  the  velocity  field  in  a  small  region  near  the  base  of 
the  flame  plume  during  the  beginning  of  the  fire. 

As  can  be  seen  in  Figures  4.5  through  4.8,  the  flame  plume  is  well 
formed  early  in  the  fire  in  both  the  nonventilated  and  ventilated  cases 
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Figure  4-4.    Location  of  Cross-Sections  Used  for  Isotherm  and 

Velocity  Field  Plots 
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Figure  4-5.    Mid-Section  Front  Views  of  Isotherms  at  30  Seconds 
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Figure  4-6.    Mid-Section  Front  Views  of 
Velocity  Field  at  30  Seconds 
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Figure  4-7.    Mid-Section  End  Views  of  Isotherms  at  30  Seconds 


79 


«C  —J 
—1  <x. 
i— <  o 
I—  1/1 


q: 

0. 

LU 

u. 

k- 

■*" 

*— 
< 

^3 

Q_ 

In 

* 

V 

O 

—I 

."  «J 

u. 

-  o 

w 

> 

C 

* 

3 

fel 

o 

K 

Q 

x: 

UJ 

(/i 

1 — 

<t 

t/) 

1 

-o 

•— ' 

c 

i — 

o 

Z 

u 

LU 

ci> 

> 

o 

CM 

Figure  4-8.    Mid-Section  End  Views  of  Velocity  Field  at  30  Seconds 
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Figure  4-9.    Section  View  at  Base  of  End  Cap  of 
Isotherms  at  30  Seconds 


81 


I—   OO 


oz 

B. 

LU 

k. 

►— 

■"•* 

t— 

W 

< 

-if 

Q. 

•5 

V 

O 

0  ►— 

, — , 

_l 

*u 

C" 

Ll 

*o 

2 

u 

O 

> 

(-") 

JC 

i 

UJ 

(/> 

1— 

tt 

< 

(/) 

u 

1  1 

s_ 

h- 

0 

2: 

0 

LlJ 

CD 

> 

O 
C\J 

Figure  4-10.    Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  30  Seconds 
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Figure  4-11.   Mid-Section  Front  View  of 
Velocity  Field  at  40  Seconds 
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Figure  4-12.    Mid-Section  Front  Views  of  Isotherms  at  60  Seconds 
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Figure  4-13.    Mid-Section  Front  Views  of 
Velocity  Field  at  60  Seconds 
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Figure  4-14.    Mid-Section  End  Views  of  Isotherms  at  60  Seconds 
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Figure  4-15.    Mid-Section  End  Views  of 
Velocity  Field  at  60  Seconds 
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Figure  4-16.    Section  View  at  Base  of  End  Cap  of 
Isotherms  at  60  Seconds 
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Figure  4-17.    Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  60  Seconds 
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Figure  4-18.    Mid-Section  Front  Views  of  Isotherms  at  90  Seconds 
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Figure  4-19.    Mid-Section  Front  Views  of 
Velocity  Field  at  90  Seconds 
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Figure  4-20.    Mid-Section  End  Views  of  Isotherms  at  90  Seconds 
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Figure  4-21.    Mid-Section  End  Views  of 
Velocity  Field  at  90  Seconds 
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Figure  4-22.    Section  View  at  Base  of  End  Cap  of 
Isotherms  at  90  Seconds 
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Figure  4-23.    Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  90  Seconds 
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Figure  4-24.    Mid-Section  Front  Views  of  Isotherms  at  120  Seconds 
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Figure  4-25.    Mid-Section  Front  Views  of 
Velocity  Field  at  120  Seconds 
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Figure  4-26.    Mid-Section  End  Views  of  Isotherms  at  120  Seconds 
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Figure  4-27.    Mid-Section  End  Views  of 
Velocity  Field  at  120  Seconds 
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Figure  4-28.    Section  View  at  Base  of  End  Cap  of 
Isotherms  at  120  Seconds 
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Figure  4-29.    Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  120  Seconds 
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Figure  4-30.    Mid-Section  Front  Views  of  Isotherms  at  150  Seconds 
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Figure  4-31.    Mid-Section  Front  Views  of 
Velocity  Field  at  150  Seconds 
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Figure  4-32.    Mid-Section  End  Views  of  Isotherms  at  150  Seconds 
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Figure  4-33.    Mid-Section  End  Views  of 
Velocity  Field  at  150  Seconds 
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Figure  4-34.    Section  View  at  Base  of  End  Cap  of 
Isotherms  at  150  Seconds 
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Figure  4-35.    Section  View  at  Base  of  End  Cap  of 
Velocity  Field  at  150  Seconds 
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and  it  dominates  the  local  velocity  field.  As  can  be  seen  in  Figures 
4.12  through  4.33,  the  plume  continues  to  dominate  the  field 
throughout  the  fire.  The  plume  begins  at  the  heat  source  and  flows 
straight  up  until  it  reaches  the  ceiling,  then  it  divides  and  flows 
towards  either  end  of  the  vessel.  In  the  local  area  of  the  fire,  there  is 
some  entrainment  of  the  field  due  to  the  plume  flow.  Due  to  the 
strength  of  the  plume  velocity,  and  the  absence  of  any  strong  global 
circulation,  the  flame  plume  divides  the  velocity  field  in  half,  isolating 
the  north  and  south  regions. 

The  flow  in  the  hot  ceiling  layer  does  not  appear  to  have  strong 
enough  momentum  to  carry  it  into  the  lower  half  of  the  tank,  even  in 
the  south  end,  where  the  fan  augments  the  flow.  Instead,  the  flow 
recirculates  into  the  tank  interior,  resulting  in  a  downward-biased 
flow.  It  then  returns  to  the  fire  region  in  a  somewhat  spatially  oscilla- 
tory path.  As  can  be  seen  in  Figures  4.8,  4.10,  and  the  other  end  views 
of  the  velocity  field,  there  is  a  spiral  flow  circulation  pattern  in  the 
ventilated  case.  This  creates  a  more  stagnant  region  to  the  right  of 
the  vertical  center  line.  Figures  4.7,  4.9,  and  the  other  end  views  of 
isotherms  show  higher  temperatures  in  this  stagnant  region  because 
the  heated  fluid  is  not  being  convectively  transferred.  It  also  makes 
the  conductive  heat  transfer  through  the  tank  wall  in  the  region  more 
important,  as  the  temperature  is  higher.  In  the  nonventilated  case, 
the  flow  fields  and  isotherms  appears  to  be  symmetric  about  the  verti- 
cal plane. 
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As  mentioned  previously,  the  velocity  of  the  fans  is  a  constant  3.18 
feet  per  second.  This  velocity  is  on  the  same  order  of  magnitude  as 
the  flame  plume,  but  since  each  fan  is  directed  only  toward  the  end 
caps,  their  impact  on  the  global  velocity  field  is  not  significant.  The 
fan  entrainment  creates  only  a  small  local  disturbance  to  the  global 
flow  pattern.  The  north  fan  outlet,  in  the  lower  region  of  the  vessel, 
has  little  effect  upon  the  global  velocity  since  the  global  velocity  in  the 
region  is  very  small,  as  seen  in  the  nonventilated  case.  The  fans  effect 
the  heat  distribution  locally,  as  discussed  in  the  next  paragraph. 

Figure  4.5  shows  a  hot  layer  along  the  ceiling  of  the  tank,  with  the 
temperature  highly  stratified  in  the  upper  region.  The  lower  two- 
thirds  of  the  tank  are  still  near  the  initial  temperature.  This  tempera- 
ture distribution  is  exactly  what  the  velocity  field  suggests,  flow  only  in 
the  upper  third  of  the  tank,  and  little  flow  in  the  bottom  two- thirds. 
In  Figures  4.12,  4.18,  4.24,  and  4.30,  the  temperature  stratification 
continues,  but  the  heated  fluid  is  slowly  progressing  toward  the  bot- 
tom of  the  tank.  Even  at  150  seconds,  Figure  4.30  shows  that  the  first 
isotherm,  representing  15  degrees  Centigrade  above  ambient,  is  only 
at  the  middle  of  the  tank.  The  bottom  half  of  the  tank  experiences 
very  little  temperature  increase.  In  the  ventilated  case,  the  isotherms 
in  the  north  end  cap  are  higher  than  in  the  south.  This  can  be  attrib- 
uted to  the  fans  at  either  end  which  push  up  the  heated  fluid  in  the 
north  end  and  push  down  the  heated  fluid  in  the  south  end.  The 
effect  is  limited  to  a  small  region  in  the  end  cap  because  the  fan 
velocity  is  relatively  low  and  the  flow  is  parallel  to  the  isotherms. 
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Since  flow  is  along  the  stratification,  very  little  mixing  of  different 
temperature  gases  occurs  except  in  the  end  caps,  where  flow  is  forced 
into  a  single  region.  Had  the  fans  been  oriented  in  a  direction  not 
parallel  to  the  isotherms,  one  would  expect  the  temperatures  in  the 
lower  portion  of  the  tank  to  be  more  affected. 

One  anomaly  which  appears  in  the  ventilated  case  is  the  second 
circulation  at  the  base  of  the  flame  plume  on  the  north  side  seen  in 
Figure  4.11.  The  flow  in  this  region  is  flowing  away  from  the  flame 
plume  until  it  turns  upward  as  it  hits  the  flow  returning  to  the  plume 
from  the  end  caps.  It  is  believed  that  this  is  a  transient  phenomena 
due  to  the  interaction  between  the  fan  and  flame  plume  entrainments. 
As  can  be  seen  in  Figures  4.6  and  4.13,  the  phenomenon  has  disap- 
peared. Additional  data  for  a  time  of  45  seconds,  not  included  herein, 
shows  no  indication  of  the  second  circulation  pattern.  The  effects  of 
this  second  circulation  pattern  can  be  easily  seen  in  the  temperature 
field  in  Figure  4.11. 

Figures  4.36  through  4.39  present  the  data  from  the  ventilated 
and  nonventilated  cases.  Figure  4.36  shows  that  the  global  pressure  in 
both  cases  is  not  very  different.  The  differences  can  be  attributed  to 
two  causes.  First,  the  entire  field  is  not  at  a  thermodynamic  equilib- 
rium state,  and  the  relationship  between  the  global  pressure  and  a 
field  not  in  thermodynamic  equilibrium  is  only  an  estimation.  Any 
change  to  the  field  which  would  closer  approach  equilibrium,  such  as 
the  mixing  due  to  the  fans,  would  affect  the  global  pressure.    Second, 
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Figure  4-36.    Pressure  Curves  for  the 
Ventilated  and  Nonventilated  Cases 
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Figure  4-37.    Thermocouple  #1  Curves  for  the 
Ventilated  and  Nonventilated  Cases 
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Figure  4-38.    Thermocouple  #2  Curves  for  the 
Ventilated  and  Nonventilated  Cases 
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Figure  4-39.    Thermocouple  #4  Curves  for  the 
Ventilated  and  Nonventilated  Cases 
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the  fire  is  still  in  its  first  stages,  and  the  entire  field  is  rapidly  chang- 
ing. This  dynamic  situation,  along  with  the  approximations  inherent 
in  modeling,  can  also  account  for  differences  in  the  ventilated  and 
nonventilated  fields. 

Figures  4.37  through  4.39  show  the  thermocouple  temperatures 
versus  time;  the  results  are  similar  to  the  pressure,  with  the  ventilated 
case  increasing  more  slowly  but  then  catching  up  to  the  nonventilated 
case,  exceeding  it  at  around  80  to  110  seconds.  Since  the  thermo- 
couples are  in  the  north  end  cap,  they  are  in  the  area  in  which  the 
isotherms  are  pushed  upward  by  the  fan.  This  could  explain  why  the 
temperatures  are  lower  in  the  ventilated  case.  The  temperatures 
exhibit  some  local  fluctuations  which  could  be  the  result  of  thermal 
instability  associated  with  thermal  plumes  [Ref.  37].  In  Figure  4.39  it 
appears  that  there  are  large  oscillations,  but  the  scale  on  the  graph  is 
smaller  so  that  the  temperature  oscillation  of  all  three  thermocouples 
is  in  the  same  range.  These  oscillations  appear  in  both  the  ventilated 
and  nonventilated  cases. 

In  most  numerical  models,  the  time  step  is  an  important  factor.  A 
small  time  step  uses  too  much  computer  time,  while  too  large  a  time 
step  results  in  instability  of  the  model.  In  this  study,  two  trials  were 
conducted  with  different  time  steps.  In  the  first  trial,  a  time  step  of 
0.0288  seconds  was  used  up  to  40  seconds  of  fire  time,  and  then  the 
step  was  reduced  to  0.0192.  In  the  second  trial,  the  beginning  time 
step  was  0.1152  seconds  until  6  seconds  of  fire  time,  when  the  model 
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Figure  4-40.    Pressure  Curves  for  Trials  1  and  2 
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Figure  4-41.    Thermocouple  #1  Curve  for  Trials  1  and  2 
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became  unstable.  At  that  time,  the  time  step  was  reduced  to  0.0288 
and  further  reduced  to  0.0192  near  80  seconds,  when  it  again  became 
unstable.  Figures  4.40  and  4.41  show  the  global  pressure  and  temper- 
ature of  thermocouple  number  1  versus  time  for  both  trials.  Note  that 
the  curves  are  coincident  for  the  first  20  seconds,  then  diverge  until 
approximately  90  seconds,  when  they  begin  to  converge.  At  the  end  of 
the  runs,  both  the  pressure  and  temperature  appear  to  become  coin- 
cident once  again.  Since  the  only  difference  between  these  two  runs 
was  the  time  step  difference,  it  is  evident  that  time  step  does  affect 
the  transient  results  in  this  computer  model.  Also  interesting  is  that 
it  appears  that  solutions  using  different  time  steps  would  become  the 
same  after  a  long  period  of  time. 
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V.    CONCLUSIONS   AND   RECOMMENDATIONS 

A.  CONCLUSIONS 

Several  conclusions  may  be  drawn  from  this  simulation  model  of 
the  FIRE-1  test  facility  with  ventilation: 

1.  The  ventilation  model  has  been  successfully  incorporated  into  the 
numerical  model  of  FIRE-1.  The  local  velocity  fields  in  the 
region  of  the  fans  exhibit  a  realistic  behavior.  The  global  effect  of 
the  fans  is  small  due  to  the  relatively  low  velocity  and  because  the 
flow  is  parallel  to  the  isotherms. 

2.  The  global  flow  field  exhibited  appears  realistic.  The  fire  plume 
increases  the  gas  velocity  upward,  resulting  in  a  ceiling  jet  which 
is  the  dominant  flow  in  the  field.  The  flow  recirculates  within 
the  field  with  minor  variations  caused  by  the  ventilation. 

3.  The  isotherms  depict  the  concentration  of  hot  gases  in  the  top  of 
the  field.  These  hot  gases  stratify  and  slowly  diffuse  downward  as 
time  progresses.  The  isotherms  are  affected  by  the  ventilation  in 
the  end  cap  region,  where  they  are  pushed  upward  or  downward. 

4.  A  small  change  in  the  time  step  makes  a  discernable  difference 
in  the  transient  solution.  With  different  time  steps,  the  transient 
solutions  are  different.  When  the  time  steps  are  the  same,  the 
previously  diverging  transient  solutions  appear  to  converge  and 
become  coincident. 

B.  RECOMMENDATIONS 

The  following  recommendations  are  made  for  future  work  on  the 

numerical  model: 

1.  Additional  FIRE-1  experiments  are  needed  to  better  validate  the 
numerical  model.  Accurate  heat-release  rate  data  must  be 
obtained  and  included  in  the  model,  instead  of  using  a  synthe- 
sized rate.  Additionally,  sensors  should  be  placed  at  different 
locations  in  the  vessel  to  better  validate  the  numerical  results 
throughout  the  field. 


119 


2.  Develop  and  incorporate  additional  models  to  simulate  physical 
phenomena  such  as  gaseous  radiation  and  combustion. 

3.  Continue  to  expand  and  validate  the  model  to  include  decks, 
equipment  in  the  space,  and  fire-extinguishing  systems. 

4.  Since  the  model  uses  an  extensive  amount  of  computer  time,  it  is 
imperative  that  the  numerical  model  be  transferred  to  a  super- 
computer or  a  dedicated  mini-computer. 

5.  The  ultimate  goal  of  this  project  is  to  develop  a  computer  model 
for  predicting  fire  and  smoke  phenomena  in  shipboard  situations. 
Completion  of  this  goal  will  offer  ship  designers  and  engineers 
with  a  valuable  tool  to  design  and  build  safer  ships  and 
submarines. 
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R-DIRECTION 
2  OR  PHI-DIRECTION 
NUMBER  OF  NODALS   FOR  SOLID  IN  THETA-DIRECTION 

R-DIRECTION 
2, PHI-DIRECTION 


8 &2£££8S£2££ ££££££££££££££££££££££££££££ £££££££ ££££££££££££££££ 
INPUT  DATA  8 

8 S ££££££££££ S£££££2£2£2£82£££££££SS££££ £££££££££££££ ££££££££££8 
CALL  INPUT 

£££££££8 ££££££££££££ 88 £££££££££££8£££££££££££££££££888£££ ££££38 
GENERATE  GRID  SYSTEM  8 

8££a2888££££££££££££8888£8£££££££8£88  8  88888£8S£888£8£8S8  888S88S 
CALL  GRID 


C    ***         READ  VIEW  FACTOR  INVERSE  MATRIX  9 

c««97«»«c9?«««s««t«»s?ffffff««tn;«»ff««««sff?3«ff«««»«7««««fftsfff?«fffff«ff« 

999  READ  (11,END=998)  VFMXC 
GOTO  999 


00007900 
00008000 
00008100 
00003200 
00008300 
00008400 
C0008S00 
00008600 
00008700 
000C83C0 
00003^00 
00009000 
0000Q100 
0000°200 
OC009300 
00009400 
0000°500 
00009600 
00009700 
00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 
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993  CC  INUE 
REWIND  11 
CLOSE  (11) 

C  £S8£S£S£22£2£2288£8££88S888S888SSSSSSS882S888888888S8SSS888a£S8 
C        INITIALIZE  THE  WHOLE  FIELD  8 

C  38888 88 £££££S££SS88S£S8£&8SS82S£88S8S8888&a8S88S£a88S888888S888 
CALL  INIT 

C  888888888 28888888888888 8838388882S88S888888888£888£888£888£8828 
C         START  CALCULATION  £ 

C  888888 S8S£88£82888888£S2888888888888888S888&£888£28888828888288 

NT=0 
NTIM=0 

300  CONTINUE 

NT=NT*1 

C  ***     NTMAXO  HAS  THE  MEANING  AS  "NTREAL"  WHEN  IT  IS  READ  FROM 
C        DISK  OR  TAPE. 

IFtXTIME  .GT.  TMAX)  GO  TO  303 
NTREAL=NT+NTMAXO 
TIME=TIME+DTIME 
XTIME=TIME*H/UO 


C2822882882£2  22£8S88888 888 £888288 8 8888 888888&8288888888288888S888 
C      CALCULATE  THE  TRANSIENT  HEAT  INPUT  8 

C  NOTE  IF  1  IN  PARENTHESIS,  THE  BURN  RATE  IS  CALCULATED  & 
C  BY  THE  PRESSURE  CURVE.  IF  EQUAL  TO  TWO,  THE  BURN  RATE  & 
C     CURVE  IS  EITHER  GIVEN  OR  ESTIMATED  8 

C8  88££8££££S3£8£2SS£8&£££££2£££S££S££22  2  8S8S888S8882£8£8Sa££8S28£ 
CALL  CALQ12) 

C  ***    START  CALCULATION 

ITES=0 
JTERN=0 

JJTERM-0 

C      DEFINE  THE  UPDATED  TPDII,J,K>,  CPDI I ,  J  ,K  )  ,RPD(  I ,  J  ,K  ) 

C     U?D(I,J,K)  AND  VPD(I,J,K)  FOR  THE  USE  OF  CALVIS  AND  SU(I,J,K) 

DO  48  K=1,NKP1 

DO  48  J=1,NJP1 

DO  48  I=1,NIP1 

TPD(I,J,K  )  =  T(I,J,K) 

CPD(I,J,K)=C(I,J,K) 

RPD(I,J,K)=R(I,J,K) 

UPD(I,J,K  l=U(I,J,KJ 

VPD(I,J,K)=V(I,J,K) 

WPD(I,J,K)=WII,J,K) 


00010700 
00010300 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
00013300 
00C13400 
00013500 
00013600 
00013700 
00013800 
0C013900 
00014000 
00014100 
00014200 
00014300 
00014400 
00014500 
0001*600 
00014700 
00014800 
00014900 
00015000 
00015100 
00015200 
00015300 
00015400 
00015500 
00015t>00 
00015700 
00C15800 
00015900 
00016000 
00016100 
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48  CONTINUE 
29  CONTINUE 

JTERM=JTERM+1 
301  CONTINUE 


C£££8a88a££8£aa8SS8aa8S388aSSa8S8a£838a888S2a888aa88S8Saa8SS£88SS 
C     CALCULATE  THE  RADIATION  HEAT  FLUX  AT  EVERY  NRAD  TIME  STEPS  & 

C£aaa££££ai££i£iaa££aaaa£i£aaiaa£a£££££aaaaa£aaa£aaaa£££aaaaaaaaa 

NRAD  =  2 

IF  (MOD(NT,NRAD).NE.O)  GOTO  4000 
CALL  RADHT(T4HALL,VFMXC) 
4000  CONTINUE 

C*»**S«S«*S**»**********#**1tt***1f***»*  **»****#  ******  *****#****** 
C      CALCULATE  THE  TEMPERATURE  * 

CALL  CALT 

cs£a££sss£a£2sa2£aaaa£££££aaaaaaaaaa£aaaaaaa£a££aaaa££aaaaaaaaa£8 

C      CALCULATE  THE  SMOKE  CONCENTRATION  8 

caaasaaaassaaasaaaassa&aaa^aassassasaasasa&asssassssgssssssaasas 

C      CALL  CALC 

DO  2000  J=1,NJP1 
DO  2000  I=1,NIP1 
DO  2000  K=1,NKP1 

IF( Tt I , J ,K  ) . LT . TCOOL )  T( I , J ,K )=TCOOL 
2000  CONTINUE 

c/:x>c/:/:/:xxxxxx>:xzzzx>c^xzzxxzzxxxxxx/^>:x/c>cxx/:/fxxx/:x/:xxxxxx/:z^z>cx/:>:x 

C      GL02LE  PRESSURE  CORRECTION  FOR  ENCLOSED  TANK  AIR  7. 

zv:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/x^^^ 

CALL  GL03E 

C     CALCULATE  THE  TURBULENT  VISCOSITY  AND  CONDUCTIVITY        3 

CALL  CALVIS 

C*****^*****************#***#*******************<^***»*********** 
C      CALCULATE  THE  DENSITY  * 

DO  100  J=1,NJP1 
DC  100  I=1,NIP1 
DO  100  K=1,NKP1 
IF  (NOD(I,J>K).EQ.l)  GOTO  100 
AAAA=BUOY*UGRT*HEIGHTl I , J ,K 1 

R( I ,  J ,K  )=( UGRT*P< I , J,K )+l 1 ./EXPt AAAA ) ) )/T( I ,J,K ) 
100  CONTINUE 

C$$$$$$$$$$$$S$$$$$$$$$$$$$5$S$$$$$$$S$$$$$$$$SS$S$$S$$$$§§$$$$$$ 
C      CORRECT  CONDUCTIVITY  OF  THE  SOLID  $ 

C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
IF  (NCHIP.EQ.O)  GOTO  410 


00016200 
00016300 
00016400 
CC016500 
00016600 
00016700 
00016800 
00016900 
00017000 
00017100 
00017200 
00017300 
00017400 
00017500 
00017600 
00017700 
00017800 
00017900 
00018000 
00018100 
00018200 
00018300 
00018400 
00018500 
00018600 
00018700 
00018800 
00018900 
00019000 
0001O100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00019900 
00020000 
00020100 
00020200 
OC020300 
00020400 
00020500 
00020600 
00020700 
00020800 
00020900 
00021000 
00021100 
00021200 
00021300 
00C21400 
00021500 
00021600 
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CALL  SOLCON 
410  CONTINUE 

zy:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:w^^ 

C      START  PRESSURE  CORRECTION  ITERATIVE  LOOP,  IT  IS  THE  MAJOR  V. 
C         PART  OF  THE  ERROR  CONTROL  ROUTINE  7. 

z7:/:/:/:/:/;/:/:/:/:/:/:/:/:/:/:/:/:/:w^^^ 

ITER=ITER+1 

C  3  vwv9vvw3  3  3  a*  3  93ww39333  ^^5^3  vvv3  alo)  Vv3v9vvwvwwtfwvvtf999«vvvv39v93w3 
C      CALCULATE  THE  VELOCITY  U,V,AND  W  3 

Lr  3333  3  wcj  v  3333333  ^^cw  v  cy<a)<iic*'<v  v  o)  33  wv^  ^  v  5  v  »  oJa)  333  <v  33333333  vww<^3q}333w3w33 

CALL  CALU 
CC    CALL  STRESS 

CALL  CALV 
CC     CALL  STRESS 
C  ***  ****#*****■***-* 

CALL  CALW 
CC  CALL  STRESS 

C  »**  #***■**•*****#** 

C $$$$$$ t$$5$$ $*$$$$$$$* $$$$$$$$$$$ $5 $$$$$$$$$$$$$$ $$$$$$$$$$$$$$$ 
C     CALCULATE  THE  PRESSURE  AND  STRESS  8 

C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$S$$$$$$$$$$$$$S$$$$$$$$$$$$$$$$$$$ 

CALL  CALP 
CALL  STRESS 

cv:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:^^^^^^ 

C  IF   SOURCE    TERM   IS   LARGER   THAN    10.0,    STOP    PROGRAM  A 

CX/CXXZXX^X^ZXX/^XXZZXX^XZXX^XXXXXX.^XZX^ZXXXX^/IXX/iX/IXXXXXXXXX/CXX/C 
IF    IRESORMHTERI.GT.IO.O)   GOTO    2020 


IRRESORMf  ITER)    .LE.    SORMAX )    GO   TO   49 
IFCTER    .EQ.    1J   GO   TO   302 
ITERM1=ITER-1 

IFlRESORM(ITER)    .LE.    RESORMI ITERM1 ) )   GO  TO   302 
GO   TO   304 
302    IFIJTERM    .GE.    2)    GO   TO   37 
SOURC£=RESCRMl  ITER ) 
CC   TO   3° 

37  IFi RESORMI ITER)    . LE .    SOURCE)   GO  TO   38 
GO   TO   304 

38  SOURCE =RESORM< ITER) 

39  CONTINUE 

WRITE ( b , 95  )  ITER , RESORMI ITER ) .SORSUM 
95  FORMAT! 53X,'ITER=' ,12, 2X, *SOURCE= ' ,F9 . 6,2X, *SORMUP= ' ,F9. 6  ) 
DO  23  K=1,NKP1 
DO  23  J=1,NJP1 
DO  23  I=1,NIP1 
TPD(I,J,K)=T(I,J,K) 


00021700 
00021800 
00021900 
00022000 
0C022100 
00022200 
00022300 
00022400 
00022500 
00022600 
00022700 
00022800 
00022900 
00023000 
00023100 
00023200 
00023300 
00023400 
00023500 
00023to00 
00023700 
00023800 
00023900 
0002<+000 
0002h100 
00024200 
00024300 
0002^400 
00024500 
00024600 
00024700 
00024800 
0002-+900 
00025000 
00025100 
00025200 
000253C0 
00025*00 
O0C255O0 
000256C0 
000257C0 
00025800 
00C25900 
00026000 
0002ol00 
0002o200 
0002o300 
0002t>400 
00026500 
00026600 
0002o700 
00026800 
00026900 
00027000 
00027100 
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35 


58 


304 


41 


CPDU,J,K  )=C(I,J,K) 

RPD(I,J,K)=R(I,J,K) 

UPD(I,J,K)=U(I,J,K) 

VPD(I,J,K)=V(I,J,K) 

WPD!I,J,K  )=W(I,J,K) 

PPD(I,J,K)=P(I,J,K) 

CONTINUE 

JJTERM=0 

IFIITER  .EQ.  ITMAX)  GO  TO 

IFIJTERM  .EQ.  2 )  GO  TO  35 

IFIITER  .EQ.  4)  GO  TO  29 

CONTINUE 

•  EQ 

EQ. 


40 


43 


49 


3)  GO  TO 
7)  GO  TO  ; 


58 
9 


IFIJTERM 

IFIITER 

CONTINUE 

JJTERM=0 

GO  TO  301 

CONTINUE 

JJTERM=JJTERM+1 

IFIJJTERM  .EQ.  1 

IFIJTERM  .EQ.  1) 

IFIJTERM  .EQ.  2 

GO  TO  82 

CONTINUE 

DO  40  K=1,NKP1 

CO  40  J=1,NJP1 

CO  40  I=1,NIP1 

RiI,J,K)=RPDl  I,J,K) 

UII,J,K)=UPD!I,J,K) 

V(I,J,K  )=VPD(I,J,K) 

H(I,J,K  >=WPD(I>J,K) 

P(I,J,K)  =  PPD(I,J,K) 

CONTINUE 

IFIITER  .EQ.  ITMAX)  GC  TO  49 

GO  TO  2  9 

CONTINUE 

DO  43  K=1,NKP1 

DO  43  J=1,NJP1 

DO  43  I=1,NIP1 

T(I,J,K)=TPD(I,J,K) 

C(I,J,K  i=CPD(I,J,K) 

RII,J,K  l=P.PD(  I,J,K) 

U(I,J,K  )=UPD(I,J,K ) 

VtI,J,K J=VPD(I,J,K) 

W!1,J,K  )=WPD(I,J,K) 

P(I,J,K  )=PPD(I,J,K) 

CONTINUE 

IFIITER  .EQ.  ITMAX) 


)  WRITE! 6,95)  ITER ,RESORM( ITER ) ,SORSUM 
GO  TO  41 
.AND.  JJTERM  .EQ.  1  .AND.  ITER  .NE.  5)  GO  TO  41 


GO 


IFI (JTERM 
GO  TO  301 
49  CONTINUE 


.EQ. 


TO  49 

.AND.  ITER  .NE. 


8)  .OR.  JJTERM  .EQ.  2)  GO  TO  49 


ITERT=ITERT+ITER 
C     GO  TO  THE  PRESSURE  TRACKING  SUBROUTINE  , PRINT  OUT         ft 


00027200 
00027300 
00027400 
00027500 
00027600 
00027700 
00027800 
00027900 
00028000 
00028100 
00028200 
00028300 
00028400 
00028500 
00028600 
00028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
0002°500 
00029600 
00029700 
00029800 
00029900 
00030000 
0003C100 
00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
00030800 
00030900 
00031000 
00031100 
00C31200 
00031300 
00031400 
00031500 
00031600 
00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 
00032500 
00032600 
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C      RESULTS  IF  AT  THE  RIGHT  TIME  INTERVAL  * 

CALL  PTRACK 

IF  IMOD(NTREAL,NWRP).EQ.O)  CALL  OUT( 1 ) 

czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 

C       FIND  TEMPERATURES  AT  THERMOCOUPLE  POINTS  AND  PRINT  OUT   Z 
C       IF  AT  THE  RIGHT  TIME  INTERVAL  Z 

czzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 

CALL  TCP 

IF  (MOD(NTREAL,NWRP).EQ.O)  CALL  OUT12) 
2422  CONTirJUE 

IF  (MODlNTREAL,NWRITE  l.EQ.O)  CALL  OUT( 3  ) 
C     IFINTREAL  .EQ.  NTREAL/NWRITE*NWRITE  )  CALL  OUT! 3 ) 
505  CONTINUE 

IFI (XTIME+DTIME*H/U0)  .GE.  TMAX )  GO  TO  277 

C      CALL  TLEFT(IT) 

C  123  FORMAT!  '  ITLEFT  =  ',110) 

C      IT0=IT 

C      IFIIT.LT. ITLEFT)  CALL  OUT(3) 

C  ***  *********************************************************** 


C  *-** 


RESET  THE  OLD  TIME  VALUES  TOD,  ROD,  UOD,  VOD  AND  POD. 


DO  305  K=1,NKP1 
DO  305  J=1,NJP1 
DO  305  I=1,NIP1 
TODI  :,J,K)=T(I,J,K) 
CCDH,J,K  l=C(I,J,K) 
ROD(I,J,K)  =  R(I,J,K  ) 
UODII.J.K  l=U(I,J,K) 
VODCJ.K  l=V!I,J,K) 
WOD(I,J,K  l=W(I,J,K) 
POD(  I,J,K)=PII,J,K) 
305  CONTINUE 

C  I  !  i  I  I  I  !  i  I  !!!  I  i  1  I  I  I  I  I  I  I  I  II  I  I  ! I  I  II  I  I  I  I  I  I  II  I  I  !!  I  I  I  I  I  I  I  1  II  II  I  i  I ! I  I  I 
C      THIS  WRITING  IS  FOR  PLOTTINGS  I 

C  1  I  I  I  I  I  i  I  |  1  I  I  I  II  I  I  I  I  I  I  ||  I  I  I  I  I  I  I  II  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 
IFINTREAL  .NE.  NTREAL/NTAPE*NTAP£  1GOTO  522 
IWRITE=10 
WRITE! IWRITE) 
8  Tir^E,NTREAL,T,R,U>V,W,P>CPM,COND,VIS,QRNET,ITERT,OCORRT,PMl,PM2, 
8  H,TA,UO,CONDO,VISO,RHOO,NI,NJ,N;<,NIP1,NJP1,NK.P1,NIM1,NJM1,NKM1, 
I    XC ,YC ,2C ,XS,YS,ZS,DXXC ,DYYC ,DZZC ,DXXS ,DYYS,DZZS 

HRITE16,*)  'THE  TIME  WHEN  THE  DATA  WAS  STORED  ON  TAPE  IS:', 
S  XTIME 

C  ***    ***»»<H»»***»*»*»«**»*****»**tt»**»»)<  k  x  x  x  x  ******************** 


00032700 
00032800 
00032900 
00032000 
00033100 
00033200 
00033300 
00033400 
00033500 
000S3600 
00033700 
00033800 
00033900 
00034000 
00034100 
00034200 
00034300 
00034400 
00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035100 
00035200 
00035300 
00035*00 
00035500 
00035600 
00035700 
00035800 
00025900 
00036000 
00036100 
00036200 
00036300 
00036400 
0003b500 
00C3b600 
00036700 
00026800 
0002o900 
00037000 
00037100 
00037200 
00037300 
00037400 
00037500 
00037600 
00037700 
00037800 
00037900 
00038000 
00038100 
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00038200 
00038200 
00038400 
00038500 
00038600 
00038700 
00038800 
00038900 
0003°000 
00039100 
00039200 
00039300 
00039400 
00039500 
00039600 
00039700 
00039300 
00039900 
000<+0000 
00040100 
00040200 
00040300 
00040400 
00040500 
00040600 
00040700 
000h0800 
00040900 
00041000 
00041100 
00041200 
00041300 
000tl400 
000^1500 
00041600 

00041700 

#*##«*****)(*♦*##*#**#***#*♦**###***«*##*»*#*«»*#»#»♦#*»**#*****#***«*  00041800 

SUBROUTINE  INPUT  C0041900 

***#**»****#**■**♦***##•*****•**#****#«•*##**■*#*##*#**#-*»#***####*#*##**#  00042000 


522  CONTINUE 

C  #*#  #**«*###*######*-*###■**##**##»#*##*♦**#####**######«#**»*### 

C      CALL  TLEFT(IT) 

C      IFIIT.LT.ITLEFT  )  GO  TO  166 

C  **#  ****#*#********sHt**»*«-*******#**-**#-*###########**##****##"#* 

C  TIMREM  IS  USED  TO  CALCULATE  THE  CPU  TIME  REMAINING  AT  NPS 

IF  (TIMREMIO.  ).LE.80.  )  GOTO  166 

GO  TO  300 
303  CONTINUE 
277  CONTINUE 

WRITE<6,1111) 
1111  F0RMAT12X, '**»***  THE  MAXIMUM  TIME  HAS  BEEN  REACHED  ******* ,18) 
GO  TO  172 

C  *«#  »#*##*#»  IHHK  )HHHHHHHHHHBHHBHHHHHHHt)HHHHHHHHI<«tHBHHHHHHHHHHi 

l6o  IFINTREAL  .NE.  NTREAL/NTAPE*NTAPE )  WRITE! 9) 

S  TIME, NTREAL,T,R,U,V,W,P,CPM,COND, VIS, QRNET,ITERT ,QCORRT ,PM1 ,PM2 , 
S  H ,TA ,U0 ,COND0 ,VISO ,RHO0 ,NI ,NJ ,NK >NIP1 ,NJP1 ,NKP1 ,NIM1 ,NJM1 ,NKM1, 
8  XC , YC ,ZC >XS , YS ,Z3 ,DXXC ,DYYC ,DZZC ,DXXS ,DYYS ,DZZS 
REWIND  9 


GOTO  172 
2020  CONTINUE 

WRITE  (6,*) 

CONTINUE 

STOP 

END 


RESIDUAL  MASS  IS  LARGER  THAN  10.0,  PROGRAM  STOPS' 


172 


THIS  SUBROUTINE  SETS  UP  REQUIRED  VALUES  TO  BEGIN  THE  PROGRAM.  #00042100 

VARIABLES  ARE:  #00042200 

KRUN       =      WHEN  EQUAL  TO  ONE, READ  FROM  THE  *00042300 

RESTART  DISK,  ELSE  FROM  THE  JCL  #00042h00 

NCHIP      =      NUMBER  OF  SOLID  PIECES  *00042500. 

NNRP       =      NUMBER  OF  TIME  STEPS  TO  WRITE  ON  THE  #00042600 

PAPER  #00042700 

NTHCO      =      NUMBER  OF  THERMOCOUPLES  TO  PRINT  OUT  #00042800 

TMAX       =      MAXIMUM  TIME  ALLOWED  I  REAL  I  #00042900 

TWRITE     =      SECONDS  IN  REAL  TIME  TO  PRINT  THE  #00043000 

P,V,T  FIELDS  ON  PAPER  #00043100 

TTAPE      =      TIME  INTERVAL  TO  WRITE  ON  THE  TAPE  #00043200 

DTIME     =      TIME  STEP  I DIMENSIONLESS )  #00043300 

HS2       =      HEAT  SOURCE  SIZE,  USED  TO  CALCULATE  #00043400 

THE  VOLUME  OF  THE  FIRE  CELL  #00043500 

ICHPB      =      FIRST  SOLID  NODE  IN  THETA  DIRECTION  #00043600 
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JCHPB  =  FIRST  SOLID  NODE  IN  R  DIRECTION  *00043700 

KCHPB  =  FIRST  SOLID  NODE  IN  PHI  DIRECTION  *00043800 

NCHPI  =  NUMBER  OF  NODES  IN  THETA  DIRECTION  *0004390G 

NCHPJ  =  NUMBER  OF  NODES  IN  R  DIRECTION  *0004h000 

NCHPK  =  NUMBER  OF  NODES  IN  PHI  DIRECTION  *0004h100 

CX,CY,CZ  =  THERMOCOUPLE  POSITIONS  IN  THETA, R, PHI  *00044200 


00044400 

C0MM0N/R4/XCI  93)>YC(93  )  ,ZC<  93  )  ,XS(  93  1  ,YS(  93  )  ,ZS<  93  ) ,  00044500 

8          DXXC(93),DYYC<93  I ,DZZC I  93 ) ,DXXS( 93  )  ,DYYS( 93),DZZSl93)  000f+600 

COMMON/BLl/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR  00044700 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00044800 

8   ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA,NHRP  00044900 

COMMON/BL12/  NHRITE ,NTAPE ,NTMAX0 ,NTREAL .TIME ,SORSUM , ITER  00045000 

C0MM0N/BL14/HC0EF ,TINF ,CNT , ABTURB ,BTURB ,VISL .VISMAX ,QCORRT ,PM1 ,PM200045100 

COMMON/BL16/  CONST1  ,CONST2  ,CONST3  ,C0NST4  .C0NST6 ,NT  ,U0 ,H ,UGRT ,BUOY ,00045200 
8   CP0,PRT,COND0,VIS0,RHOO,HR,TR,TA,DTEMP,TNRITE,TTAPE,TMAX,GC,RAIR0OO45300 

CCMNON/BL20/SIG1K22,16,32),5IG12(22,16,32),SIG22122,16,32)  00045400 

4           ,SIG13(22,16,32),SIG23(22,16,32),SIG33<22,16,32)  00045500 

COMMON/BL22/ICHPB( 10), NCHPK 10),JCHPB(10  l,KCHPJl 10  ),KCHPB110),  00045600 

8            NCHPK(10),TCHP(10  I  ,CPS( 10  )  ,CONS( 10  )  ,WFAN( 10)  00045700 

COMMON/BL31/  TODI 22 ,1b ,32 ) ,ROD( 22 ,16 ,32 ) ,P0D( 22 ,16 ,32 )  00045300 

8        ,COD( 22,16,32  I  ,UOD( 22 ,16 ,32  )  ,VOD( 22 ,1b ,32 ) ,WOD( 22 ,16 ,32 )  00045900 

COMMON/BL32/  T( 22 ,16 ,32  )  ,Rl 22,16 ,32  )  ,P( 22 ,16 ,32  )  00046000 

8        ,CI22,lb,32),U(22,lo,32),V(22,lo,32 > ,W< 22,16,32 )  0004ol00 

COMMON/BL33/  TPDI 22 ,16 ,32  )  ,RPD< 22 ,16 ,32  )  ,PPDl 22 ,16 ,32 )  0004b200 

8        ,CPDI 22,16,32  ),UPD( 22,16,32  )  ,VPD( 22 ,16,32 ) ,WPD<  22 ,16,32 )  00046300 

C0MM0N/BL34/  HEIGHT! 22 ,16 ,32  )  ,REQ( 22 ,16 ,32  ) ,  00046400 

8       SMP(22,lo,32  l,SMPP( 22 ,16 ,32  )  ,PP( 22 ,16 ,32  ) ,  00046500 

8      DUI 22, lb, 32), DVI22,lo, 32 >,DH( 22,16,32)  00046600 

COMMOri/BL36/AP( 22,16,32  ),AE( 22 ,16 ,32  )  ,AWl 22 ,16 ,32  )  ,AN( 22 ,16 ,32 ) ,  00046700 

8        AS(22,lo,32  ),AF<22,16,32  I  ,AB( 22,1b ,32 ) ,  00046800 

8     SP(22,lo,32  ),SUl22,lb,32 » ,RI( 22 ,16 ,32  )  00046900 

COMMON/BL37/  VIS( 22 ,1b ,32  1 , CONDI  22 ,16,32  )  ,NOD( 22 ,16 ,32 ) ,RWALL(  579 100047000 


8        ,CPMl 22,16,32),HSZ(3,2  ),NHSZ( 22,lo,32  l,RE50RM(  93) 
C0MMON/BL38/NTHC0,CX( 12  J ,CY( 12  )  ,CZl 12 ),NTH( 12,3  )  ,TCOUPl 12 ) 


C  «1.  READ  IN  DATA  TO  INDICATE  EITHER  KRUN=0  OR 
READ!  5,*)  KRUN,NCHIP,NWRP,NTh:CO 

C  HZ.    READ  IN  DATA  SET  1-6  DATA 

READ! 5,* )  TMAX,TWRITE ,TTAPE ,DTIME 


Z   ?3.  READ  IN  DATA  FOR  HEAT  SOURCE 


20 


READ  (5,*)  HSZI 1,1 J,HSZ(1,2  I  ,HSZ( 2 , 1  )  ,HSZ( 2 ,2  )  ,HSZ( 3 ,1  I ,HSZ(  3 ,2 ) 
HRITE(6,20  )  H3Z( 1,1  ),HSZ( 1,2  t.HSZI 2,1  )  ,HSZ( 2 ,2  )  ,HSZ( 3 , 1 ), HSZI  3,2) 
FORMAT  t/,20X,'KEAT  SOURCE  LOCATION  IS  IN  THE  VOLUME  I  NON-DIME', 


8 

'NSICNAL  KITH 

RESPECT  ■ 

rO  RAD] 

:us» 

> 

8 

/,5X,'FR0M 

',F8.4,' 

TO 

,F8 

.4,' 

IN  X-DIRECTION' 

> 

8 

/,SX,'FROM 

' ,F8.4,' 

TO 

',F8 

4,' 

IN  Y-DIRECTION' 

, 

8 

/,5X, 'FROM 

',F8.4,' 

TO 

1  ,F8 

.4,' 

IN  Z-DIRECTION' 

>/) 

00047100 
00047200 
00047300 
00047400 
00047500 
00047600 
000h7700 
00047800 
00047900 
00048000 
00043100 
00048200 
00048300 
00048400 
00048500 
00048b00 
00048700 
00048800 
00048900 
00049000 
00049100 
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C  *4.  READ  IN  DECK  DATA 

IF  (NCHIP.EQ.O)  GOTO  16 
PRINT  * 

PRINT  *,'     THE  REGION  BOUNDED  BY  SOLID' 
DO  IP  N=1,NCHIP 

READ  (5,*)  ICHPB(N),NCHPKN),JCHPB(N),NCHPJIN>,KCHPB<N), 
8  NCHPKI  N ) ,TCHP( N ) ,CPS( N  )  ,CONS( N  )  ,WFANI N  ) 

HRITE  (6,10)  N>ICHPB(N),NCHPKN),JCHPB(N),NCHPJ<N),KCHPB(N), 
&  NCHPKI N ) ,TCHP( N ) ,CPSt  N ) ,WFAN( N ) ,CONS(  N ) 

10  FORMAT  (2X,'N=  ',12,'   ICHPB=  ',12,'  NCHPI=  "  ,12,  '   JCHPB=  ',12, 
8'   NCHPJ=   ',12,  *   KCHPB=  ',12,'   NCHPK=  ',12,  '  TCHP=  ' ,F8.5, 
&•      CPS=   ',F8.S,/,  '   WFAN  =   ',F12.5,'   CONS=   ',F12.5,/) 
19  CONTINUE 
16  CONTINUE 


C  *5. 

C 


INPUT  THERMOCOUPLE  COORDINATE 

IN  TERMS  OF  XITHETA),  Yl RADIUS  )  ,Z( PHI  ) 


THERMOCOUPLE  POSITION  IN  TERMS  OF  THETA,  R,  PHI' 


00049200 
00049300 
0004 9400 
0004°S00 
00049600 

000*0700 
00049800 
00049900 
00050000 
00050100 
00050200 
00050300 
00050400 
00050500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 

C  00052400 

C  ***  ***»»****»***»****'^»*****»*jh*»****-***»»**x>(x**"»***»**  x-m*********  00052500 
SUBROUTINE  INIT  0005C600 

C  ***  ************##**<HHf**************#**#*************^*»*********»*#  00052700 

^*##**********#**#****^Ht#*»*********************##********»*-»******-»**#  00052800 
# 

*  TIME 

*  UO 

*  H 

*  TR 

*  TA 

*  VISO 

*  VISL 

*  VISMAX 

*  HR 

*  CONDO 

*  CO 

*  NJRA 

*  HCONV 

*  HCOEF 


PRINT  * 
PRINT  *,  ' 
PRINT  * 

DO  110  I=l,NTHCO 
READ  (5,*)  CX(I  ),CY(I ),C2(I ) 
WRITE  (6,*)  I,  CX(I),CY(I),CZ(I) 
110  CONTINUE 

RETURN 
END 


THIS  SUBROUTINE  INITIALIZES  THE  FIELD  AND  CONSTANTS  WITH  RESPECT  *00052<>00 


TO  INITIAL  START  OR  RESTARTING  CAPABILITY. 
VARIABLES  ARE  : 


DIMENSIONLESS  TIME 

CHARACTERISTIC  VELOCITY  (1  FT/SEC) 

CHARACTERISTIC  LENGTH  ( RAOIUSI 9. 6FT ) ) 

TEMP  IN  DEGREES  KELVIN 

TEMP  IN  DEGREES  RANKINE 

REFERENCE  VISCOSITY  ( NCNDIM  ) 

MINIMUM  VISCOSITY  ( NONDIM  ) 

MAXIMUM  VISCOSITY  (NONDIM) 

RADIUS  IN  CM 

REFERENCE  CONDUCTIVITY 

INITIAL  SMOKE  CONCENTRATION 

POINT  OF  RADIATION  IN  J  DIRECTION 

LOCATED  ON  THE  INNER  SOLID  BOUNDARY 

HEAT  TRANSFER  COEFFICIENT 

DIMENSIONLESS  HEAT  TRANSFER  COEF 


♦00053000 
♦00053100 
♦00053200 
♦00053300 
*00053400 
*00C52500 
♦00053600 
♦00053700 
♦00053S00 
♦00053°00 
*00054000 
♦00054100 
♦00054200 
*00054300 
♦00054400 
♦00054500 
♦00054600 
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* 

C0NST1       = 

* 

RHOO         = 

* 

GC          = 

* 

BUOY         = 

# 

UGRT         = 

# 

CPO         = 

* 

NWRITE/ 

# 

NTAPE 

* 

MATRICES  OF  THE  FORM 

* 

_OD         = 

* 
* 

~PD         = 

* 

WHERE  THE  PARAMETERS 

# 

U,V,W 

* 

T,P,C        = 

* 

* 

DU,DV,DZ     = 

* 

PP          = 

* 

SU          = 

* 

SP          = 

* 

* 

AP          = 

* 

AE,AW,AN     = 

* 

AS,AF,AB 

* 

SMP         = 

# 

SMPP         = 

# 

CPM         = 

# 

VIS         = 

* 

COND         = 

* 

NHSZ        = 

* 

* 

NOD         = 

* 

* 
# 

_B,_E 

* 

REQ         = 

* 

NIP1         = 

# 

XCYC.ZC     = 

# 

# 

DXXCDYYC    = 

* 

DZZC 

* 

X3,YS,ZS     = 

* 

* 

D/XS.DYYS    = 

* 

DZ2S 

* 

CX.CY.CZ     = 

ARE 


USED  TO  NONDlM"-NSIONALIZE  PRESSURE     #00054700 

REFERENCE  DENSITY  #00054800 

GRAVITY  CONSTANT  #00054900 

BUOYANCY  FORCE  CONSTANT  *00055000 


PERFECT  Ci 


LA*  NONDIMENSIONAL  CONSTANT*0005E100 


REFERENCE  SPECIFIC  HEAT 
NONDIMENSIONAL  FORMS  OF  TWRITE 
TTAPE 


AND 


DIMENSIONLESS  PARAMETER  AT  OLD  TIME 
DIMENSIONLESS  PARAMETER 
UPDATED  DIMENSIONLESS  PARAMETER 


*000£5200 
#00055300 
#00055400 
#00055500 
#00055600 
#00055700 
#00055800 
#00055900 

VELOCITY  IN  THETA,  R  ,  PHI  DIRECTION   #00056000 

TEMP,  PRESSURE,  AND  SMOKE  CONCENTRATION*00056l00 

#00056200 

USED  IN  PRESSURE  CORRECTION  SUBROUTINE 

CORRECTED  PRESSURE  IP' J 

SOURCE  TERM 

TERM  AT  P  NODAL  POINT  FOR  BOUNDARY 

CONDITIONS 

coEFiciErrr  at  nodal  point 

COEFICIENTS  AT  PTS  EAST , WEST , NORTH , 

SOUTH,  FRONT,  AND  BACK 

RESIDUAL  MASS  SUMMATION  OF  NODAL  POINT 

LENGTH  SCALE  FOR  TURBULENCE 

MEAN  SPECIFIC  HEAT 

VISCOSITY 

CONDUCTIVITY  MATRIX 

WHEN  THIS  VALUE  EQUALS  ZERO,  THERE  IS 

NO  HEAT  SOURCE  LOCATED  AT  THE  NODE 

IF  EQUAL  TO  ZERO,  LIC'JID 

IF  EQUAL  TO  ONE,  SOLID 

BEGINNING  AND  ENDING  NODAL  POINT  FOR 

THE  SOLID  IN  I,J,K 


CENSITY  AT  EQUILIBRIUM 

NODAL  POINT  It;  I  PLUS  1 

THETA, R, PHI  LOCATION  OF 

A  CENTER  CELL 

LENGTH  AROUND  THE  CENTER  CELL 


#0005o300 
#00056400 
#00056500 
#00056600 
#00056700 
*0005o800 
*0005o900 
#00057000 
#00057100 
#00057200 
#00057300 
#00057400 
#00057500 
#00057600 
#00057700 
#00057800 
#00057900 
#00058000 
#00053100 
#00053200 
(OTHERS  SIMILAR  100058300 
NODAL  POINT  OF  #00053400 


#00058500 
*000SSt>00 
#00053700 
OF  #00053800 
#00053°00 
*0005c000 
#00059100 
TION  OF  THERMOCOUPLE  IN  THETA ,R ,PHI#0005°200 


THETA, R, PHI  LOCATION  OF  NODAL  POINT 

A  STAGGERED  CELL 

LENGTH  AROUND  THE  STAGGERED  CELL 


LOC 


COMMON/Rh/XCI 93  ),YCf  93),ZCl 93  l,XS<  93  ),YSI 93  ),ZSI 93),  00059400 

8  DXXCI 93),DYYC(93  ),DZZC(03  ),DXXS( c3  ),DYYS( 93),DZZS( 93)    0005°500 

COMMON/BLl/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR  00059600 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00059700 

&   ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,N3,N3P1,NBM1,KRUN,NCHIP,NJRA,NWRP   00059800 
COMMON/BL12/  NWRITE , NTAPE ,NTMAX0 .NTREAL , TIME ,SORSUM, ITER  00050900 

C0MM0N/BL14/HC0E  F ,TINF ,CNT ,A3TURB ,BTURB,VISL ,VISMAX ,QCORRT ,PM1 ,PM200060000 
COMM0N/BL16/  C0NST1,C0NST2,C0NST3,C0NST<+,C0NST6, NT, U0,H, UGRT, BUOY, 00060100 
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X   CPO ,PRT ,CONDO ,VISO ,RHOO ,HR ,TR ,TA ,DTEMP .TWRITE ,TTAPt ,TMAX ,GC , 

COMNON/BL20/SIG1K  22,16,32 ),SIG12l 22, lb, 32  ),SIG22l 22, lb, 32 1 
&  ,SIG13(22,lb,32),SIG23( 22,lo,32 1  ,SIG23( 22 , lo ,32 ) 

COMMON/BL22/ICHPBI  10),NCHPIl  10  J.JCHPBl  10  l,NCHPJ(10  I.KCHPB(IO), 
£  NCHPKl 10  ),TCHP( 10  i  ,CPS< 10  ),CONSl 10),WFAN( 10) 

COMMCN/BL31/  TOD( 22 ,16 ,32 ) ,ROD< 22 ,16 ,32  )  ,POD< 22, lb, 32 ) 
Z  ,COD( 22, lb, 32  ),UOD( 22, lb, 32  ),VOD( 22 ,1b ,32  )  ,WOD( 22,16,32 

COMMON/BL32/  T( 22 ,16  ,32  )  ,R( 22 ,16 ,32  )  ,P( 22 ,16 ,32  ) 
8       , CI  22, 16, 32  ), U( 22, 16, 32  ),V( 22, 16, 32), HI  22, 16, 32) 

COMMON/BL33/  TPDI  22,16,32  ),RPD(  22,16,32  ),PPD(  22,lo,32  ) 
&        ,CPD(22,16,32),UPD122,16,32  )  ,VPD( 22 ,1b, 32 ) ,HPD(  22 ,16 ,32 

COMMON/BL34/  HEIGHT!  22  ,16  ,32  )  ,REQ(  22  ,1b  ,32  ) , 
&  SM?(22,16,32),SMPP(22,16,32),PP(22,16,32), 

8     DU( 22,16,32  )  ,DV( 22 ,16,32 ) ,DW( 22 ,16 ,32 ) 

COMMON/BL36/AP(22,16,32),AE(22,16,32),AWl22,16,32),AN(22,16,32 
8        AS(22,16,32),AF(22,16,32),AB(22,16,32), 
&  SP(22,16,32),SU(22,16,32),RI(22,16,32) 

COMT10N/BL37/  VISt 22,16,32 ), CONDI  22,1b ,32  ), NODI  22 ,16 ,32 ),RWALL( 
&        ,CPM< 22,16,32 ),HS2( 3,2 ) ,NHS2( 22 ,16 ,32 ) ,RESORM(  93 ) 

COMMON/BL38/NTHC0,CX< 12),CY( 12),C2( 12),NTH1 12,3),TCOUP(  12) 

C0MMCN/BL39/ALEW,PCURVE,C0NSRA,PCURM1,PS0UTH,QC0RR,PERR0R 

DATA  GRAV/32.17/ 

C  ***    INTRODUCE  GIVEN  PARAMETERS 

TIME=0. 
TR=TA/1.8 

H  =  9.6 

VIS0=VIS0/U0/H 

VISL=VIS0 

VISMAX=400.*VISL 

HR=H*30.48 

COND0=VIS0/PRT 

PI=H.*ATAN( 1. ) 

ALEH  =1.0 

NJRA=1S 

C  THE  HEAT  TRANSFER  COEFFICIENT  IS  IN  BTU/HR/FT**2/F 
KC0NV=1E.0 

HCOEF=KCONV/(3600.*CP0*RHO0*U0  ) 
CC  =  0.0 


CONSTl=RHO0*U0*U0/(GC*14. 696*144.  ) 

COr,'ST3  =  1.8/TA 

C0NST4=H*30.<48 

COMCTb=U0*30.48 

NTMAX0=0 

BL'OY=GRAV*H/< U0*U0 ) 

UGRT=UO*U0/( GC*RAIR*TA ) 

TCOOL=1.0 

CO'JSRA=TA*TA*TA/( RHO0*CP0*U0*3600 .  )*1 . 714E-9 

WRITEI 6,200)  TR,COND0,VIS0,CP0,HR,DTIME,HCONV 


), 


RAIR00060200 
00060300 
00060400 
OOOoOSOO 
OOObObOO 
000b0700 
00060800 
00060900 
00061000 
00061100 
00061200 
00061300 
00061400 
00061500 
00061600 
00061700 
00061800 

579)000bl900 
000b2000 
00062100 
00062200 
00062300 
00062400 
000b2500 
00062600 
00062700 
00062800 
00062900 
00063000 
00063100 
00063200 
000o3300 
00063400 
00063500 
00063600 
OC063700 
00063800 
00063900 
00064000 
000b4100 
00064200 
000o4300 
00064hOO 
00064500 
000b4600 
00064700 
0006<+800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 
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200  FORMAT! 5X,  'THE  REFRENCE  TEMPERATURE  AND  THERMAL  PROPERTIES',/* 


8  /,5X,  *T     =  ',F10.<+,'K, 

8  /,5X, 'VISO  =  '  ,E12.6,' 

8  /,5X, 'RADIUS  =  '  ,E12.6,' 

8  /,5X, 'DTIME  =  '  ,E12.6, 

8  /,SX,'HCONV  =  ',E12.6,/) 


CONDO  =  ' ,E12.6, 
CPO    =  ',E12.6, 
CM', 


NWF.ITE  =TWRITE*UO/DTIME/H 
NTAPE  =TTAPE*UO/DTIME/H 
C  ***    PRINT  OUT  INPUT  INFORMATION 

WRITE! 6,61)  (STAR,I=1,90),KRUN,TMAX,TWRITE,TTAPE,NHRP 
61  FORMATl///,90Al,/,5X, 'KRUN   =',I2,/,5X, 

8  'TMAX  =',F8.3,'  SECONDS ' ,/5X , 'THRITE  =',F8.3, 

8  '  SECONDS' ,/,5X,'TTAPE   =',F8.3,'  SECONDS', 

8  /,5X,'  NUMBER  INTERVALS  OF  WRITING  ON  PAPER   ',  15,/) 

C  ***    INITIALIZE  VARIABLE  FIELD 

DO  220  J=1,NJP1 
DO  220  I=1,NIP1 
DO  220  K=1,NKP1 
ROD(I,J,K)=l. 
R(I,J,K 1=1. 
RPD(I,J,K)=1. 
UOD(I,J,K)  =  0. 
U1I,J,K)=0. 
UPD(I,J,K  1=0. 
VOD!I,J,K)=0. 
V(I,J,K  1  =  0. 
VPD!I,J,K 1=0. 
W(I,J,K  1=0. 
WPD1I,J,K)=0. 
HOB(I»J,K 1=0. 
PODII,J,K )  =  0. 
PiI,J,K  1=0. 
PPD(I,J,K 1=0. 
DU(I,J,K  t  =  0. 
DV(I,J,K 1=0. 
DK(I,J,K  )=0. 
SL'(I,J,K  )=0. 
SPU,J,K)=0. 
PP(I,J,K )=0. 
AP(I,J,K  1=0. 
AWCI,J,K 1=0. 
AE!I,J,K  )  =  0. 
AN(I,J,K)=0. 
ASII,J,K)=0. 
AF(I,J,K )=0. 
AB( I,J,K  1=0. 
SMP(I,J,K)=0. 
Sf'.PP(I,J,K)=0. 
VIS(I,J,K)=VISL 
CONDI  I, J, K  )=COND0 
CPM(I,J,K)=1.0E0 


00065700 
0006S800 
00065900 
OOO06OOO 
OOOoolOO 
O00o6200 
O00o6300 
00066400 
00066500 
OOO060OO 
00066700 
00066800 
00066900 
00067000 
000o7100 
00067200 
00067300 
00067400 
00067500 
00067600 
00067700 
OC067800 
00067900 
00068000 
00068100 
00066200 
00068300 
000o8^00 
000o8500 
OOO680OO 
00068700 
000688C0 
0006S900 
00069000 
0C0o9100 
0006°200 
C00o9300 
00069^00 
000d°500 
000o9d00 
00069700 
0G069800 
00069900 
00070000 
00070100 
00070200 
0007030C 
00070<+00 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 
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TODU,J,K  1  =  1. OEO 
T(I,J,K)=TOD(I,J,K) 
TPD(I,J,K  l=TOD(I,J>K) 
COD<I,J,K  t=CO 
C(  I,J,K  i=CODH,J,K) 
CPD(I,J,K1=C0D(I,J,K) 
NHSZ(I,J,K)=0 
NOD(I,J,K)=0 
220  CONTINUE 


C  ***   DETERMINE  THE  POSITION  OF  HEAT  SOURCE 

DO  300  1=2, NI 
DO  300  J=2,NJ 

C  CHANGE  TO  RECTANGULAR  COORDINATES 
XX=YC(  J)*COS(XC(D) 
YY=YC< J)*SIN(XC(I)) 

C  CHECK  TO  SEE  IF  IN  HS  CONTROL  VOLUME,  IF  SO  SET  NHSZ=1 
IF  IXX.LT.HSZl 1,1  I.OR.XX.GT.HSZl 1,2) I  GOTO  310 
IF  (YY.LT.HSZ(2,l).OR.YY.GT.HSZ(2,2) )  GOTO  310 
NHSZ(I,J,16  )  =  1 
NHSZ(I,J,17)=1 

315  FORMAT  (  2X,10l  4X,I4,2X,I4  U 
GOTO  3C0 

310  CONTINUE 

300  CONTINUE 


C  *** 


DEFINE  THERMAL  PROPERTIES  OF  DECK  AND  SOLID 


IF  (NCHIP.EO.O)  GOTO  410 

DO  402  N=1,NCHIP 

IB=ICHPBIN) 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=J^+r^CHPJ(N)-l 

KB=KCHPBIN  • 

KE=KB+NCHPK(N)-1 

DO  405  I=IB,IE-1 

DO  405  J=JB,JE-1 

DO  405  K=KB,KE-1 

COND(I,J,K  l=COND0*CONS(N) 

CPM(I,J,K)=CPO*CPS(N) 

NOD(I,J,KJ  =  l  ' 
405  CONTINUE 
402  CONTINUE 
410  CONTINUE 


C  ***  FOR  CONTINUING  RUN,  READ  DATA  FROM  TAPE  OR  DISK 


00071200 
00071300 
00071400 
00071500 
00C71t>00 
00071700 
00071800 
00071900 
00072000 
00072100 
00072200 
00072300 
00072400 
00072500 
00072600 
00072700 
00072800 
00072900 
00073000 
00073100 
00073200 
00073300 
00073400 
00073500 
00073600 
00073700 
00073800 
00073900 
00074000 
00074100 
00074200 
00074300 
0007^400 
00074500 
00074600 
00074700 
00074800 
00074900 
00075000 
00075100 
00075200 
00075300 
00075400 
00075500 
00075600 
00075700 
00075800 
OC075900 
00076000 
00076100 
00076200 
00076300 
00076400 
00076500 
00076600 
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IFfKRUN  .EQ.  1)  GO  TO  9997 
GO  TO  15 

9997  READ18,END=9998) 
£  TIME ,NTMAXO ,TOD ,ROD ,UOD ,VOD ,WOD .POD ,CPM ,COND ,VIS ,QRNET ,ITERT , 
SRT,PN1,PM2,XX,XX,XX,XX,XX,XX,N1,NJ,NK,NIP1,NJP1,NKP1,NIM1,NJM1 
&  >NKril>XC,YC,ZC,XS,YS,ZS,DXXC,DYYC,DZZC,DXXS,DYYS,OZZS 

GO  TO  9997 

9998  CONTINUE 
REMIND  8 
CLOSE  (8) 
WRITE(6,*)NTMAX0 

IS  CONTINUE 


C  ***  DEFINE  HEIGHT  OF  NODE  POINTS  AND  COMPUTE  HYDROSTATIC 

C        EQUILIBRIUM  DENSITY  REQ(I,J,K) 


DO  15  K=1,NKP1 
DO  13  I=1,NIP1 
CO  13  J=1,NJP1 

DHY=YC( J  )*SIN( XC( I  )  )*SIN( 2C( K  )  ) 
KEIGHT(I,J,K  )  =  DHY 
13    CONTINUE 

DO  229  J=1,NJP1 
DO  229  I=1,NIP1 
DO  229  K=1,NKP1 
AAAA=-BUOY*UGRT*HEIGHT< I , J ,K  ) 
REQ(I,J,K)=EXPIAAAA) 
IFIKRUN  .NE.  0)  GO  TO  229 
RPD(  I ,  J  ,K  >=REQ(  I  ,J  ,K  )/TPD(  I ,  J,K  ) 
R03(I,J,K  i  =  RPD(I,J,K) 
Ril.J.K  >=RPDlI,J>K  ) 
229  CONTINUE 


c  *** 


INITIALIZE  U,V,T,R,P  FIELD 


DO  210  K=1,NKP1 
DO  210  J=1,NJP1 
DO  210  I=1,NIP1 
T(I,J,KJ=TOD(I,J,K) 
CtI,J,K  l=COD(I,J,K  ) 
R(I,J,K  i=ROD(I,J,K) 
U(I,J,K  l=UOD(I,J,K) 
V( I,J,K)=VODtI,J,K ) 
W(I,J,K  »=W0DI1,J,K) 
P(I,J,K  )=PODlI,J,K) 
210  CONTINUE 

C  ***   FOLLOWING  IS  FOR  DETERMINING  THE  THERMOCOUPLE  POSITIONS 

DO  5000  N=l,NTHCO 
DO  5001  I=1,NIP1 


00076700 
00076800 
00076900 
00077000 
QCOR00077100 
00077200 
00077300 
00077400 
00077500 
00077600 
00077700 
00077800 
00077900 
00078000 
00078100 
00078200 
00078300 
00078H00 
00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
00079100 
00079200 
00079300 
00079400 
00079500 
00079600 
00079700 
00079800 
00079900 
00080000 
00080100 
00080200 
00080300 
00080400 
00CS0500 
COOS0600 
00080700 
00020800 
00080900 
00031000 

oooenoo 

00081200 
00081300 
00081400 
00081500 
00031600 
00081700 
00081800 
00081900 
00082000 
00082100 
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IF    (XCII  ).LT.CX(N).AND.XC(I+1).GE.CX(N  I  )    GOTO   5002 

5001  CONTINUE 

5002  11=1 

DO  5003  J=1,NJP1 

IF  (  VCU  ).LT.CY(N).AND.YC<  J  +  l  I.GE.CY(N)  )  GOTO  5004 

5003  CONTINUE 

5004  JJ=J 

DO  50C5  K=1,NKP1 

IF  <ZC<K).LT.CZ<N).AND.ZC(K  +  1).GE.CZIN)  )  GOTO  5006 

5005  CONTINUE 

5006  KK=K 
NTH(N,1)=II 
NTH(N,2)=JJ 
NTHIN.3  )=KK 

5000  CONTINUE 


RETURN 
END 


SUBROUTINE  CALVIS 

THIS  SUBROUTINE  CALCULATES  THE  TURBULENT  VISCOSITY  AND  UPDATES* 
THE  VISCOSITY  MATRIX  * 


00082200 
00082300 
00082400 
00082500 
00082600 
00082700 
00032800 
00082900 
00083000 
00083100 
00083200 
00083500 
00033400 
00083500 
00083600 
00083700 
00083800 
00083900 
00084000 
00084100 
00034200 
00084300 
00084400 
00084500 
00084600 
00084700 
00084800 
00084900 
00085000 
00085100 
00085200 
00065300 
00085400 
00085500 
00085600 


C0MM0N/R4/XC (  °3  )  ,YC(  °3  )  ,ZC(  93  )  ,XS(  93  I  ,YS(  93  )  ,ZS(  93  ) , 
8  DXXCI  93),DYYC193  1,DZZC<  93),DXXS( 93),DYYS( 93),DZZS( 93) 

COMMON/BL7/ra  ,NIP1  ,NIM1  ,NJ  ,NJP1 ,NJM1 ,NK  ,NKP1 ,NKM1 

8   ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAK1 ,NB ,NBP1 ,N3M1 ,KRUN,NCHIP ,NJRA ,NWRP 

COMMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,CCORRT,PM1,PM200085700 

C0MT10N/BL16/  CONST1 .CCNST2 ,CONST3 ,C0NST4 .C0NST6 ,NT,U0 ,H ,UGRT ,BU0Y ,00085300 

8   CPO ,PRT ,COND0 ,VIS0 ,RHO0 ,HR ,TR ,TA .DTEMP ,TKRITE ,TTAPE ,TMAX,GC ,RAIR00085900 

CONMON/BL32/  T(22,16,32),R(  22  ,  16  ,32  )  ,P(  22  ,16  ,32  )  000860C0 

8       ,C(22,16,32  i,Ul22,lb,32),V( 22, 16, 32), W( 22,16,32)  0008ol00 

COMMON/ELS'*/  HEIGHT!  22, It., 32  ),REG(  22, It., 32),  00066200 

8       SMPl22,lo,32),SNPP<22,16,32  )  ,PP( 22 , 16 ,32  ),  00086300 

8      DIM  22,16,32  ),DV(  22,  lt>,  32),  DW122, 16,32  )  000S&400 

C0MM0M/BL3o/AP(22,lo,32 ) ,AE  (  22 , lo ,32  I  ,AWl 22 ,16 ,32 > ,AN( 22  ,16  ,32  )  ,   00086500 

8        ASI 22,lo,32  ),AF(22,16,32),AB(22,16,32),  00086600 

8     SP(22,16,32),SU( 22 , 16 ,32  )  ,RI ( 22 ,16 ,32  )  000oo700 

C0MM0N/BL3  7/  VIS(  22 ,16 ,32 ), CONDI  22 ,lo,32 J ,NOD< 22 , 16 ,32  )  ,RWALLl 579 )0003t>800 

8       ,CPM(22,16,32),HSZ(3,2),NHSZ(22,l6,32),RESORM( 93)  00086900 

00087000 

00087100 

***  CALCULATE  LOCAL  SHEAR  AND  VISCOSITY  VIS(I,J,K)  00087200 

00087300 
***    SPECIFY  LOCAL  TURBULENT  LENGTH  SCALES  SMPPII,J,K)  00087400 

00087500 
DO  611  K=2,NK  00087600 
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KP2  = 
KP1  = 
KM1  = 
KM2  = 
DO  6 
JP2- 
JP1 
JM1 
JM2 
DO  6 
IP2  = 
IP1  = 
IM1  = 
IM2  = 
IF  J 
IF  I 
IF  I 


K  +  2 

K  +  l 

K-l 

K-2 

11  J=2,NJ 

J  +  2 

J  +  l 

J-l 

J-2 

11  1=2, NI 

1  +  2 

1  +  1 

1-1 

1-2 

I.EQ 

I.EQ 

NOD  i 


.2)   IM2=NIM1 
.NI)  IP2=3 
I,J,K).EQ.l)  GOTO  611 


C       CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL<IP1,J,K,0>0) 
DXI  =XL(I  ,J,K,0,0) 
DXM1=XLI IM1,J,K,0,0 ) 

DYP1=YL(I,JP1,K,0,0) 
DYJ  =YL(I,J  ,K,0,0) 
DYM1=YL(I,JM1,K,0,0) 

DZP1=ZL!I,J,KP1,0,0) 
D2K  =ZL(I,J,K  ,0,0) 
DZM1=ZL(I,J,KM1,0,0) 

CC     IF  (J.EQ.2)  DYS=DYS/2. 
CC     IF  (K.EQ.2)  DZB=DZB/2. 

IF  U.NE.NJ)  GOTO  101 

JP2=JP1 

DYN=DYN/2 . 

101  IF  (K.NE.NK)  GOTO  102 
KP2=KP1 
DZF=DZF/2. 

102  CONTINUE 

C  ***    CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXE  =XL(IP1,J,K,0,1 1 
DXW  =XLII   ,J,K,0,1) 

DYN  =YL<I,JPI,K,0,2) 
DYS  =YL(I,J   ,K,0,2) 

DZF  =ZL(I,J,KP1,0,3) 
DZ3  =ZL(I,J,K   ,0,3) 

C  ***    CACULATE  DV/DX.D2V/DX2 ,DU/DX,D2U/DX2,DH/DX  AND  D2M/DX2 


00087700 
00087800 
00087900 
00088000 
00088100 
00088200 
00068300 
00088400 
00088500 
00088600 
00088700 
00088800 
00088900 
00089000 
00089100 
00089200 
00089300 
00089400 
00089500 
00089600 
00089700 
0008°800 
00039900 
0009COOO 
00090100 
00090200 
00090300 
00090400 
00090500 
00090600 
00090700 
00090800 
00090900 
00091000 
00091100 
00091200 
00091300 
00091400 
00091500 
00091b00 
C00°1700 

oooneoo 

C0091900 
000°2000 
00092100 
00092200 
00092300 
00092400 
000^2500 
00092600 
00092700 
00092800 
00092900 
00093000 
00093100 
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DUDX=(U<IP1,J,K  1-U(I,J,K))/DXI 
DUDXW=0.E*IU(IP1,J,K  !-U!  IM1,J,K  )  1/DXW 
DUDXE=0.5*(U(IP2,J,K)-U(I   ,J,K))/DXE 
D£UDX2=( DUDXE-DUDXW  t/DXI 


DVDXW=0.5*(V(I,JP1,K)W(I,J,K)-V<IM1,JP1,K1-V(IM1,J,K))/DXH 
DVDXE=0 .5*1 V( IP1 , JP1 ,K  )+Vl IP1 , J ,K  )-V( I , JP1 ,K  J-Vl I , J ,K ) 1/DXE 
DVDX  =  0 . 5*<  DVDXE  +DVDXH  ) 
D2VDX2=   ( DVDXE -DVDXW )/DXI 


DNDXH=0.5*(H(I,J,KP1  )+W( I , J,K  )-W( IM1 ,J,KP1  )-W( IM1 , J ,K )  )/DXH 
DWDXE=0 .5*1 W( IP1 , J,KP1  )+Hl IP1 , J,K  )-H( I ,J ,KP1 )-H< I ,J,K ) )/DXE 
DWDX=0.5*(DWDXE+DWDXW) 
D2KDX2=   (DWDXE-DWDXW)/DXI 


602  CONTINUE 
C  ***    CALCULATE  DU/DY ,D2U/DY£ ,DV/DY ,D2V/DY2 .DW/DY  AND  D2W/DY2 


DVDY  =  (V(I,JP1,K)-V(I,J,K  )  )/DYJ 
DVDYS=0 .5*1 VI I , JP1 ,K  )-V( I , JM1 ,K )  )/DYS 
DVDYN=0 .5*1 V( I , JP2 ,K  )-V( I , J   ,K  )  J/DYN 
D2VDY2  =  ( DVDYN-DVDYS  )/DYJ 


DUDYS=0.5*tU(IPl,J,K)+U(I,J,K  )-U( IP1 ,JM1 ,K  )-U( I , JM1 ,K t  )/DYS 
DUDYN=0.5*l  U(  IP1,JP1,K )+Ul I,JP1,K  )-U( IP1,J,K  )-U( I ,J,K J  )/DYN 

DUDY=0.5*(DUDYN+DUDYS) 
D2UDY2=   (DUDYN-DUDYS1/DYJ 


DKDYS=0.5*(W< I,J,KP1  )+W( I,J,K  )-W( I , JK1 ,KP1  l-Wt I ,JM1,K 1 )/DYS 
DHDYN=0 .5*1 W(  I , JP1 ,KP1 )+W( I , JP1 ,K  l-W( I , J  ,KP1  )-H( I  ,J,K  )  J/DYN 
DWDY=0.5*(DKDYN+DKDYS) 
D2WDY2=   IDW3YN-DWDYS)/DYJ 

606  CONTINUE 

C  ***    CALCULATE  DU/DZ ,D2U/DZ2 ,DV/DZ .D2V/DZ2 ,DW/DZ  AND  D2W/DZ2 


DKCZ  =  ( W( I , J ,KP1 )-K<  I , J ,K ) )/DZK 
DWDZF=0.5*(W<1,J,KP2  >-Wf I,J,K  )  )/DZF 
DHDZB=0 .5*1 W( I ,  J ,KP1 )-W( I ,  J ,KM1 ) )/DZB 
D2WDZ2=< DHDZF-DWDZB l/DZK 


DVDZB=0.5*(V(I,JP1,K)+V(I,J,K)-V(I,JP1,KM1)-V(I,J,KM1))/DZB 
DVDZF=0.5*(V<I,JP1,KP1)+VII,J,KP1)-V(I,JP1,K)-V(I,J,K))/DZF 
DVDZ=0.5*IDVDZF+DVDZB) 


00093200 
00093200 
00093400 
000°3500 
000°S600 
00093700 
00093800 
00093900 
00094000 
0009^100 
00094200 
00094300 
00094400 
00094500 
00094600 
00094700 
00094800 
00094900 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 
00096000 
0009ol00 
00096200 
00096300 
0009b400 
00096500 
0C09bb00 
00096700 
00096800 
00096900 
00097000 
000^7100 
00097200 
00097300 
00097400 
00097500 
00097600 
00097700 
00097800 
00097900 
00093000 
00098100 
000*58200 
00098300 
00098400 
00098500 
00098600 
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D2VDZ2=   IDVD2F-DVDZB  I/D2K 


DUDZB=0.5*(U(IP1,J,K)+U<I,J,K)-U1IP1,J,KM1 1-H<I,J,KM1 ) 1/DZB 
DUDZF=0.5*(U!IP1,J,KP1  I+UII,J,KP1 l-UI IP1 , J ,K )-U( I , J ,K ) )/DZF 
D'JDZ  =  0.5*(  DUDZF+DUD2B  > 
D2UDZ2=   IDUDZF-DUDZB)/DZX 

DRDX=( (R(IP1,J,K)-REQ(IP1,J,K))-(R(IM1,J,K)-REQ(IM1,J,K)))/ 
8     (DXE+DXW) 

DRDY  =  (  <R(I,JP1,K)-REQU,JP1,K)  )-< R( I , JM1 ,K  )-REQ( I , JM1 ,K ) )  )/ 
S     (OYN+DYS) 

DRDZ=( <  Rl  I , J ,KP1  )-REQ( I , J,KP1 )  )-<  R(  I , J ,KM1 1-REQf I ,J ,KM1 ) ) )/ 
S     (DZF+DZB) 

DRDGA=SIN(ZC(K  )  >*(SIN(XC(I  )  l*DRDY+COS( XC( I ) )*DRDX ) 
8      +C0S(ZC1K))*DRDZ 

C  ***     CALCULATE  RICHARDSON  NUMBER 

STRAIN=DUDY**2+DVDX**2+DWDX**2+DVDZ**2+DWDY**2+DUDZ**2 
DD02  =  SQRT(DUDY*DUDY+DUDX*DUDX+DUDZ*DUDZ+DVDY*DVDY+DVDX*DVDX+ 
a  DVDZ*DVDZ+DWDX*DWDX+DWDY*DWDY+DW3Z*DWDZ ) 
IFIDDO2.EQ.0. )GO  TO  600 

C  ***     CALCULATE  TURBULENT  LENGTH  SCALE  SMPP(I,J) 

SMP123=SQRT< I ( U( IP1,J,K )+U< I ,J ,K  )  »*0.5  )**2  +  < ( V( I , JP1,K  1+V( I ,J,K ) 
a    0.5  1**2  +  1 (Wl I,J,KP1  l+W(I,J,K ) )*0.5 )**2 1/DD02 

SMPP12=DCC2  /SQRTI D2UDX2*D2UDX2+D2UDY2*D2UDY2 
S  +D2UDZ2*D2UDZ2+D2VDX2*D2VDX2+D2VDY2*D2VDY2+D2VDZ2*D2VDZ2* 
a  D2WDZ2*D2WDZ2+D2KDX2*D2WDX2+D2KDY2*D2WDY2 ) 

SMPPI I , J ,K  l=CNT*l SMP123+SMPP12 1* .5 

RII  I ,J,K l=-BUOY*DRDGA/( Rl I ,J,K  )*STRAIN  ) 

ABRIPR=ABTUP.B+RI(  I ,J,K  1/PRT 

IFIABP.IPR    .LT.    0.)   GO   TO   600 

IFIABRIPR    .EQ.    O.J    GO   TO   613 

GO   TO   610 
600    V:S(I,J,K)=VISL 

GO  TO  611 
613  VISII,J,K1=VISMAX 

GO  TO  611 

610  VlStl, J, K  1=VISL+R(I,J,K  )*SMPP< I , J ,K )*SMPP< I , J ,K  1*SQRT( STRAIN )/ 
8  (BTURB*ABRIPR) 

IFfVISi I,J,K)  .GT.  VISMAX)  VIS( I > J,K  )=VISMAX 

611  CONTINUE 


DO  110  I=1,NIP1 
DC  110  J=1,NJP1 
VISi I , J ,NKP1 )=VIS( I , J ,NK  J 
VIS(I,J,1    J=VIS(I,J,2  1 
110  CONTINUE 

DO  120  J=1,NJP1 
DO  120  K=1,NKP1 


00098700 
00098800 
000°8900 
00099000 
0009°100 
000OQ200 
00099300 
00099400 
00099500 
00099600 
000°9700 
00099800 
00099900 
00100000 
00100100 
00100200 
00100300 
00100400 
00100500 
00100600 
00100700 
00100800 
00100900 
00101000 
00101100 
00101200 
1*00101300 
00101400 
00101500 
OOlOlbOO 
00101700 
00101800 
00101900 
00102000 
00102100 
00102200 
00102300 
00102400 
00102500 
00102600 
00102700 
00102800 
00102900 
00103000 
00103100 
00103200 
00103300 
00103400 
00103500 
00103600 
00103700 
00103800 
00103900 
00104000 
00104100 
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VIS(NIP1,J,K  )=VISt  2,J,K  ) 
VISll    ,J,K)=VIS(NI,J,K) 
120  CONTINUE 

DO  150  K=1,NKP1 
DO  130  I=1,NIP1 
VISt I ,NJP1 ,K  i=VIS( I ,NJ ,K  ) 
VIS(I,2    ,K)=VIS(I,3  ,K) 
VIS(I,1    ,K)=VIS(I,2  ,K) 
130  CONTINUE 

DO  135  K=l,16 
KK=NKP1-K 
DO  135  I=1,NIP1 
DO  135  J=1,NJP1 
VIS(I,J,KK)=VIS<I,J,K) 
135  CONTINUE 

DO  140  I=1,NIP1 
DO  140  J=1,NJP1 

DO  140  K=1,NKP1 
IF  ( NODI  I, J, K l.EQ.l  )  GOTO  140 
CONDI  I ,  J,K )=VIS( I ,J ,K  J/PRT 
140  CONTINUE 

RETURN 
END 


SUBROUTINE  CALT 

C0MM0N/R4/XC1  95  t,YC(  93  ),ZCf  93  ),XS(  °3  ),YS(  °3),2S(  93), 
8  DXXCl  93 ) ,DYYC( 93 ) ,DZZC( 93 ) ,DXXS( 93 ) ,DYYS< 93  )  ,DZ2S( 93  ) 

CONMON/BLl/DX,DY,DZ,VOL,DTIKE,VOLDT,THOT,TCOOL,PI,Q,'}R 

COMNON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
8   ,rJIP2>NJP2,NKP2,NA,NAPl,NAnl,N3,N3Pl,N3Ml,KRUN,NCHIP,NJRA,NWRP 

COMNON/BL12/  NWRITE ,NTAPE ,NTMAXC ,NTREAL ,TIME ,SORSUM,ITER 

C0MM0N/BL14/HC0EF ,TINF ,CNT ,ABTURB ,BTURB ,  VISL ,VI5MAX ,QCORRT ,PM1 ,PM 

COKNON/BLlb/  CONSTl,CON'3T2,C0NST3,COHST4,C0N3T6,NT,U0,H,UGRT,BUOY 
8   CP0,PRT,COND0,VIC0,RHO0,HR,TR,T£,DTEMP,TKRITE,TTAPE,TMAX,GC,RAI 

COriM3N/BL22/ICHPBf 10  ),NCHPI( 10  l,JCHPB< 10  l,NCKPJ( 10  ),KCHPB(10)> 
8  NCHPKI 10  l,TCH?( 10  I  ,CPSl 10  )  ,CONS( 10 i ,WFANl 10 ) 

COMMON/BL31/  TOD( 22,16,32  I , ROD ( 22 ,16 ,32  I , POD ( 22 ,16,32 ) 
8   ,CODl  2  2,16,32  ),UOD(  22  ,1b ,32  )  ,V03l 22 , 16,32  )  ,WOD< 22 ,16 ,32 ) 

COHMON/BL32/  T< 22 ,16  ,32  )  ,R< 22  ,16  ,32  )  ,PI 22  ,16  ,32  ) 
8        ,C(  22,16,32 ),U! 22 ,16 ,32  I  ,V< 22 ,16 ,32  )  ,W! 22 ,16 ,32  ) 

COMMON/BL33/  TPD( 22,  lb,  32  )  ,RPD( 22  ,16 ,32  )  ,PPDl 22 ,16 ,32 ) 
8        ,CPD( 22,16,32),UPD(22,l6,32 )  ,VPD( 22 ,16,32  )  ,WPDl 22,16,32 ) 

C0MM0N/BL34/  HEIGHTl 22 ,16 ,32 > ,REQ( 22 , 16,32 ) , 
8       SMP(22,16,32i,SMPP(22,16,32),PP(22,16,32), 
8      DU( 22, 16,32 ),DV( 22,16,32  J, DW( 22, 16, 32) 

COMMON/BL36/AP(22,16,32),AEl22,16,32),AWl22,16,32),AN<22,16,32), 


00104200 
00104300 
0010<+400 
0010^500 
0010*600 
00104700 
00104800 
00104810 
00104900 
00105000 
00105100 
00105110 
00105120 
00105130 
00105140 
00105150 
00105160 
00105170 
00105200 
00105300 
00105<+00 
00105500 
00105600 
00105700 
00105800 
00105900 
00106000 
00106100 
00106200 
00106300 
00106400 
0010b500 
00106600 
0010b700 
00106800 
00106900 
00107000 
00107100 
00107200 
00107300 
200107400 
,00107500 
R00107600 
00107700 
00107800 
00107900 
00108000 
00108100 
00108200 
00108300 
00108400 
00108500 
00108600 
00108700 
00108800 
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8        AS( 22,16,32  >,AF( 22,16,32 ),AB< 22,16,32 ), 
8     SP( 22,16,32 ),SU( 22, lo, 32  I  ,RI  (  22  ,  It,  ,32  ) 

C0MM0N/BL3  7/VISI 22,lt>,32  ) , CONDI  22 , lo ,32  )  ,NOD< 22 ,16 ,32 ) ,RKALL( 57° ) 
8        ,CPM( 22,16,32  )  ,HSZ( 5 ,2  J ,NHSZ< 22 ,16,32  ) ,RESORM( 93) 

C  ***     CALCULATE  COEFFICIENTS 

DO  100  K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I*1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)   IM2=NIM1 

IF  (I.EQ.NI)  IP2=3 

C       CENTRAL  LENGTH  OF  THE  TEMPERTURE  CONTROL  VOLUME 

DXP1=XL(IP1,J,K,0,0) 
DXI  =XL(I  ,J,K,0,0) 
DXM1=XL(IM1,J,K,0,0) 

DYP1=YL<I,JP1,K,0,0) 
DYJ  =YL(I,J  ,K,0,0) 
DYM1=YL(I,JM1,K,0,0) 

DZP1=ZL!I,J,KP1,0,0) 
D2K  =2L(I,J,K  ,0,0) 
DZM1=ZL(I,J,KM1,0,0) 

C  ***    SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,0,2) 
DXS=XL(I,J  ,K,0,2) 
DXF=XL(I,J,KP1,0>3  ) 
DX3=XLU,J>K   ,0,3) 

DYF=YL(I,J,KP1,0,3 ) 
DYB=YLII,J,K  ,0,3) 
DYE=YL(IP1,J,K,0,1) 
0YH=YL(I   ,J,K,0,1) 

DZE=ZL(IP1,J,K,0,1) 
DZW=ZL(I  ,J,K,0,1) 
DZN=ZL(I,JP1,K,0,2) 
DZS=ZL(I,J   ,K,0,2) 


00108900 
0010^000 
00109100 
0010«200 
0010^300 
00104*00 
0010<>500 
00109600 
00109700 
00109800 
00109900 
00110000 
00110100 
00110200 
00110300 
00110400 
00110500 
00110600 
00110700 
00110800 
00110900 
00111000 
00111100 
00111200 
00111300 
00111400 
00111500 
00111600 
00111700 
00111800 
00111900 
00112000 
00112100 
00112200 
00112300 
00112400 
00112500 
00112o00 
00112700 
00112800 
00112^00 
00113000 
00113100 
00112200 
00113300 
00113400 
00112500 
00113600 
00113700 
00113800 
00113900 
00114000 
00114100 
00114200 
00114300 
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C  ***     CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE=XL<IP2,J,K,0,1) 
DXE  =XL(IP1,J,K,0,1) 

DXW  =XL(1  ,J,K,0,1) 
DXKW=XL(IM1,J,K,0>1) 

DYNN=YL(I,JP2,K,0,2) 
DYN  =YL(I,JP1,K,0,2) 
DYS  =YL(I,J  ,K,0,2  ) 
DYSS=YL(I,JM1,K,0,2) 

DZFF=ZL(I,J,KP2,0,3) 
D2F  =ZL(I,J,KP1,0,3) 
DZB  =ZL(I,J,K  ,0,3) 
DZBB=ZLII,J,KM1,0,3) 

C  ***   DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF#DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZH 
DZXN=DZN*DXN 
DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 

GN=( R( I , J ,K  )*DYP1  +  R( I , JP1 ,K )*DYJ )/(  DYP1+DYJ ) 
GS=( R( I , J,K 1*DYM1+R< I ,JM1 ,K  )*DYJ  )/( DYM1  +  DYJ  ) 
GE  =  (RII,J,K  )*DXP1+R(IP1,J,K  J*DXI  )/(DXPHDXI  ) 
GW=(R(I,J,K)*DXni+RiIMl,J,K  )*DXI  )/(  DXM1+DXI  ) 
GF  =  l R( I ,J,K )*DZP1  +  R( I ,J ,KP1  )*DZK  )/( DZP1  +  DZK  ) 
GB  =  ( R( I ,J ,K )*DZM1+Rl I ,J,KM1 )*DZK  )/( DZM1  +  DZK  ) 

CN=GN*V< I , JP1 ,K )*DZXN 
CS=GS*V(I,J  ,K)*DZXS 
CE=GE*U(IP1,J,K)*DYZE 
CW=GW*U(I  ,J,K)*DYZW 
CF=GF*W( I ,J ,KP1 )*DXYF 
CB=GB*WII,J,K   )*DXYB 


CONDN=l ./< ( 1 ./CONDI  I , J ,K )*DYJ+1 ./CONDf I , JP1 ,K )*DYP1 )/(  DYP1+DYJ ) ) 
CONDS=l./< <1./C0ND(I,J,K)*DYJ+1./C0ND(I,JM1,K)*DYM1  )/(DYMl+DYJ)  » 
CONDE  =  l ./( ( 1. /CONDI  I ,J,K )*DXI*1. /CONDI IP1 , J,K )*DXP1 )/(  DXP1+DXI ) ) 


00114400 
00114500 
00114600 
00114700 
00114800 
00114900 
00115000 
00115100 
00115200 
00115300 
00115400 
00115500 
00115600 
00115700 
00115800 
00115900 
00116000 
00116100 
00116200 
00116300 
00116400 
00116500 
0Cllb600 
0C116700 
00116800 
00116900 
00117000 
00117100 
00117200 
00117300 
00117400 
00117500 
00117600 
00117700 
00117800 
00117900 
00118000 
00118100 
00118200 
C0118300 
00118400 
00118500 
OCH60OO 
00118700 
00118800 
00118900 
00119000 
0011°100 
00119200 
00119300 
00119400 
00119500 
00119600 
00119700 
00119800 
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CONDW=l./( (1. /CONDI I,J,K  )*DXI +1 . /CONDI IM1 , J ,K  )*DXM1  1/IDXM1+DXI ) ) 
CONDF  =  l./( (l./COND(I,J,K  )*DZM  1 . /CONDI  I , J ,KP1  I*DZP1 )/( DZP1+DZK I ) 
CONDB  =  l ./111. /CONDI  I , J ,K )*DZK*1 ./CONDI  I , J ,KM1 )*DZM1 )/( DZI11  +  DZK ) ) 

CONDN1=ZXOYN*CONDN 
CO\DS1=ZXOYS*CONDS 
CONDEl=YZOXE»CONDE 
CONDN1 =YZOXN*CONDH 
CONDFl=XYOZF*CONDF 
CONCBl=XYOZB*CONDB 


CEP  =  (ABS(CE  )*CE )*DXPl*DXI/( DXE*( DXE+DXW  ) )/8. 
CEM=( ABSI CE  )-CE >*DXPl*DXI/l DXE*( DXE+DXEE ) )/8. 
CWP=( ABSI CH )+CW  >*DXMl*DXI/l DXW*( DXW+DXHW ) )/8. 
CWM=( ABSI CW  )-CW )*DXNl*DXI/l DXW*( DXW+DXE  ) )/8. 

CNP=l ABSI CN  )+CN  )*DYPl*DYJ/l DYN*< DYN+DYS  ) )/8. 
CNM  =  ( ABSI CN )-CN !*DYPl*DYJ/< DYN*( DYN+DYNN  )  1/8. 
CSP  =  ( ABSI CS  t+CS  )*DYMl*DYJ/( DYS*< DYS+DYSS 1 )/8. 
CSM=( A3SI CS )-CS )*DYMl*DYJ/l DYS*( DYS+DYN  ) )/8. 

CFP  =  ( ABSI CF  )+CF  )*DZPl*DZK/( DZF*( DZF  +  DZB  ) )/8. 
CFM=(ABS(CF )-CF )*DZPl*DZK/l DZF*l DZF+DZFF  )  )/8. 
CBP  =  l  ABSI  CB )+CB )*DZMl*DZK/<  DZB*< DZB+DZB3 ) )/8. 
CBM=(ABSICB  )-CB)*DZMl*DZK/(DZB*(DZB+DZF  ])/&. 


AE(I,J,K  )=-.5*DXI/DXE*CE+CEP+CEM*(l, 
AHII,J,K 1=  .5*DXI/DXW*CH+CWM+CHP*(1. 
AN( I , J ,K )=- .5*DYJ/DYN*CN+CNP+CNM*(  1 , 
ASH,J,K)=  .5*DYJ/DYS*CS+CSM+CSP*<1, 
AF(I,J,K)=-.S*DZK/DZF*CF+CFP+CFM*(1, 
A3I I , J  >K  )=  .5*DZK/DZB*CB+CBM+CBP*< 1 , 

801  AEE=-CEM*DXE/DXEE 
AEER=AEE*TPD(IP2,J,K)*CPM(IP2,J,K) 

802  CONTINUE 

803  AMN=-CWP*DXW/DXWW 
AWWP.=AWW*T?Dl  IM2  ,  J  ,K  )*CPM(  IM2  ,  J  ,K  ) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN=0. 

annr=o. 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 
ANNR=ANN*TPD(I,JP2,K  >*CPM< I , JP2 ,K ) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 

ASS=0. 

ASSR=0. 

GOTO  808 

807  ASS=-CSP#DYS/DYSS 


+DXE/DXEE 
♦DXW/OXWW 
♦DYN/DYNN 
+DYS/DYSS 
+DZF/DZFF 
+DZS/DZBB 


HCWM*DXW/DXE 
)+CEP*DXE/DXW 
l+CSM*DYS/DYN 
)+CNP*DYN/DYS 
)+CBM*DZB/DZF 
l+CFP*DZF/DZB 


00119900 
00120000 
00120100 
00120200 
00120300 
00120400 
00120500 
00120b00 
00120700 
00120800 
00120900 
00123110 
00123120 
00123130 
00123140 
00123150 
00123160 
00123170 
00125180 
00123190 
00123191 
00123192 
00123193 
00123194 
00123195 
00123196 
00123197 
00123198 
00123199 
00123200 
00123201 
00123202 
00123203 
00123204 
00123210 
00123300 
00123400 
00123500 
00123600 
00123700 
00123300 
00123900 
0012*000 
00124100 
00124200 
00124300 
00124400 
00124500 
00124600 
00124700 
00124800 
00124900 
00125000 
00125100 
00125200 
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ACSR=ASS*TPD( I >  JM2 ,K  >*CPMl I ,  JM2 ,K ) 
803   CONTINUE 

IF    IK.LT.NK)   GOTO  80<> 

AFF=0. 

AFFR=0. 

GOTO   810 

809  AFF=-CFM*DZF/DZFF 
AFFR=AFF*TPD( I ,J >KP2 )*CPM(  I , J ,KP2 ) 

810  CONTINUE 

IF  (K.GT.2J  GOTO  811 

ABB=0. 

ABBR=0. 

GOTO  812 

811  ABB=-CBP*OZB/DZBB 
ABBR=ABB*TPD(I,J,KM2)*CPM(I,J,KM2) 

812  CONTINUE 


C  ***  MODIFICATION  FOR  DECK    BOUNDARIES 

900  CONTINUE 

IF  (N0DIIM1,J,K).EQ.0)  GOTO  901 
AHW=0.0 

AKWR=0.0 

901  CONTINUE 

IF  (NOD(IP1,J,K).EQ.O)  GOTO  902 

AEE=0.0 

AEER=0.0 

902  CONTINUE 

IF  (N0D(I,JM1,K).EQ.0)  GOTO  903 

ASS=0.0 

AS3R=0.0 

903  CONTINUE 

IF  (NOD(I,JPl,K).EQ.O)  GOTO  904 

ANN=0.0 

ANNR=0.0 

904  CONTINUE 

IF  <NCD(I,J,KM1KEQ.0)  GOTO  905 

A3B=0.0 

ABBR=0.0 

905  CONTINUE 

IF  (NOD(I,J,KP1).EQ.O)  GOTO  906 

AFF=0.0 

AFFR=0.0 


00125300 
00125400 
00125500 
00125600 
00125700 
00125800 
00125900 
00126000 
00126100 
00126200 
00126300 
00126400 
00126500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 
00127700 
00127800 
00127900 
00123000 
00128100 
00128200 
00128300 
00128400 
00128500 
00128600 
00128700 
00128300 
00128900 
00129000 
00129100 
00129200 
00129300 
00129400 
00129500 
00129600 
00129700 
00129800 
00129900 
00130000 
00130100 
0013C200 
00130300 
00130400 
00130500 
00130600 
00130700 
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906  CONTINUE 

C  9S**tSZS3t?;9t*t1tSt13S9Stt*tt***tt1l1tt1t1***1tt1t*t91t*t9t9999 

C    ;U  =  S8  =  3«*S;;8;?«88388885  =  8S883«888S8S8888««88*SSr,8888S3  88S*S 

AP(I,J,K)  =  l AE(I,J,K  )  +  AW(I,J,K  l+AN(I,J,K  )+AS(I,J,K I 
I  +AF(I,J,K  l*AB(I,J,K  >*AEE+AWW+ANN+ASS+AFF+ABB)*CPM(I,J,K 

8  +CONDE1+CONDW1+CONDN1+CONDSH-CONOF1+CONDB1 

AE<I,J,K 1=AE(I,J,K  >*CPM(IP1,J,K)+C0NDE1 
AK(I,J,K1=AW<I,J,K)*CPMUM1,J,K  l+CONDHl 
ANII,J,K)=AN(I,J,K  I*CPM(I,JP1,K 1+CONDN1 
AS( I , J,K  )=AS( I , J,K  )*CPM( I ,  JM1 ,K l+CONDSl 
AF(I,J,K)=AF(I,J,K  »*CPM(I,J,KPD+C0NDF1 
AB(  I ,  J  ,K  )=AB(  I ,  J,K  )*CPM< I , J,KM1 HCONDB1 

SP(  I ,J  ,K )  =  -ROD( I ,  J >K  )*VOLDT*CPM( I , J ,K  ) 
SU( I , J ,K  )=    ROD! I , J ,K )*VOLDT*TODl I , J ,K )*CPM( I , J ,K ) 
SU( I ,J,K )=SUl I ,J,K J+AEER+AWNR+ANNR+ASSR+AFFR+ABBR 
100   CONTINUE 

C   ***  TAKE    CARE    OF    B.C.    THRU   AN,AS,AE ,AW,AF ,AB,SP    AND   SU 

C   ***  RADIUS   DIRECTION 

DO  500   1=2, NI 

DO   500   K=2,NK 

SP(I,2,K)=SP(I,2,K)+AS(I,2,K) 
CC  SP(I,£,K)=SPII,2,K)-ASII,2,K) 

CC  SUl 1 , 2  ,K  )=SU( 1 , 2 ,K  )  +  2 . 0*AS< 1 ,2  ,K )*TPD(  I ,1 ,K ) 

SP( I  ,NJ,K  J=SP( I ,NJ ,K )-AN( I >NJ,K ) 

SUl  I ,NJ,K )=SU( I ,NJ,K )+2 .*TPD< I ,NJP1 ,K  )*AN< I ,NJ,K  ) 

ASII,2,K)  =  0. 

AN(I,NJ,K)=0. 

CONTINUE 


500 


C   *** 


CYLIC    CONDITIONS 


DO  600  J=2,NJ 
DO  600  K=2,NK 

SUI  2  ,J,KI=SU<2  ,J,K)  +  AW(2  ,J,K)*T<1    ,J,K) 
SUl NI , J ,K  )=SU! NI , J ,K )+AE <  NI , J ,K  >*Tl NIP1 ,  J,K ) 
AW  2  ,J,K)=0.0 
AEfNI,J,K)=0.0 
600  CONTINUE 

C  ***  END  OF  SPHERE 

DO  700  1=2, NI 
DO  700  J=2,NJ 

SP(I,J,2  »=SP(I,J,2  l*AB(I,J,2) 
SP(  I  ,J  ,NK  )=SPl  I ,  J  ,NK  )+AFl  I ,  J,NK  ) 
AB(I,J,2)=0. 
AF(I,J,NK  )=0. 
700   CONTINUE 


00130800 
00130900 
00131000 
00131100 
00131200 
00131300 
100131400 
00131500 
00131600 
00131700 
00131800 
00131900 
00132000 
00132100 
00132200 
00132300 
00132400 
00132500 
00132600 
00132700 
00132800 
00132900 
00133000 
00133100 
00133200 
00133300 
00133400 
00133500 
00133600 
00133700 
00133800 
00133O00 
00134000 
00134100 
00134200 
00134300 
00134400 
00134500 
00134600 
00134700 
00134800 
00134O00 
00135000 
00135100 
00135200 
00135300 
00135400 
00135500 
00135o00 
00135700 
00135800 
00135900 
00136000 
00136100 
00136200 
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c  *** 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


DO  300  K=2,NK 
DO  300  J=2,NJ 
DO  300  1=2, NI 

APU,J,K.)=AP(I,J,K)-SP(I,J,K) 
300  CONTINUE 


C  ***  VOLUME  HEAT  SOURCE  INPUT 

VOLT=0.0 
DO  113  1=2, NI 
DO  113  J=2,NJ 
DO  113  K=lo,17 

IF  <NHSZ(I,J,K).EQ.O)  GOTO  113 
DXI  =XL(I   ,J,K,0,0) 
DYJ  =YL(I,J   ,K,0,0) 
DZK  =ZLII,J,K   ,0,0) 
VOL=DXI*DYJ*DZK*H*H*H 
VOLT=VOLT+VOL 
113  CONTINUE 

DO  111  1=2, NI 
DO  111  J=2,NJ 
DO  111  K=le,17 

IF  (NHSZ(I,J,K).EQ.O)  GOTO  111 
DXI  =XL(I   ,J,K,0,0) 
DYJ  =YHI,J   ,K,0,0) 
DZK  =ZL(I,J,K   ,0,0) 
QQQ=Q*H/I U0*CP0*RH00*TA ) 
VOL=DXI*DYJ*DZK 

SU(I,J,K  I=SU1I,J,K  )+VOL*QQQ/VOLT 
111  CONTINUE 


C  ***   RADIATION  INTO  THE  WALL 

DO  310  K=3,NKM1 
DO  310  1=2, NI 
DXN  =XL(I   ,NJRA,K,0,2 ) 
DZN  =ZL(I,NJRA,K   ,0,2) 
DZXN=DZN*DXN 
II  =  (K-3  )*(NI-1 )  +  I-l 

SUI I ,NJRA,K )=SU( I ,NJRA,K  )-RWALL( II  )*DZXN 
310  CONTINUE 

C  ***    END  OF  RADIATION 

C  ***   SOLVE  FOR  T 

CALL  TRID  (2,2,2,NI,NJ,NK,T) 


00136300 
00136400 
00136500 
00136600 
0013o700 
00136800 
00136900 
00137000 
00137100 
00137200 
00137300 
00137400 
00137500 
00137600 
00137700 
00137800 
00137900 
00138000 
00138100 
00138200 
00138300 
00138400 
0013S500 
00138600 
00138700 
00133300 
00138900 
00139000 
00139100 
00139200 
00139300 
00139400 
00139500 
00139600 
00139700 
00139800 
00139900 
00140000 
00140100 
00140200 
00140300 
00140400 
00140500 
00140501 
00140503 
00140504 
00140600 
00140700 
00140800 
00140900 
00141000 
00141100 
00141200 
00141300 
00141400 
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C  ****  RESET  TEMPERATURE  AT  R=0.0  AND  END  OF  SPHERE 

DO  81  K=1,NKP1 

AVT=0.0 

DO  82  1=2, NI 

AVT=AVT+IT(I,2,K)/NIM1) 

82  CONTINUE 

DO  83  I=1,NIP1 
TlI,l,K >=AVT 

83  CONTINUE 

8i  continue 
c 

DO  74  I=1,NIP1 
DO  74  J=1,NJP1 
T(I,J,1)=T(I,J,2) 
T(I,J,NKP1)=T(I,J,NK) 
74  CONTINUE 

C  ***     FOR  SURFACE  HEAT  EXCHANGE  WITH  SURROUNDING 

DO  84  1=2, NI 
DO  84  K=2,NK 
DYJ=YLlI,NJ,K,0,0) 

T(I,NJP1,K)=< 2.0*COND(I,NJ,K)*T(I,NJ,K)/DYJ*HCOEF*TINF)/ 
£  (HCOEF+2.0*COND(I,NJ,K)/DYJ) 

84   CONTINUE 


C  ***        FOR  CYLIC  CONDITION 

DO  80  J=1,NJP1 
DO  80  K=1,NKP1 
T(  1,J,K)=T(NI,J,K) 
T(NIP1,J,K)=TI 2,J,K) 
80   CONTINUE 

RETURN 
END 


***  ************************************************************ 

SUBROUTINE  CALC 
***  **#*************************************#*************#-*-**** 

C0MM0N/R4/XC (  93),YCI  93),ZC(  93),XS<  93  ),YS(  93),ZS(  93), 
&  DXXCI 93  ),DYYC( 93 ) ,DZ2C( 93 ) ,DXXS( 93),DYYS( 93  l,DZZS( 93) 

COMMON/BL1/DX ,DY ,DZ , VOL ,DTIME ,VOL0T ,THOT ,TCOOL ,PI ,Q ,QR 

C0MM3N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
8   ,NIP2,NJP2,N'KP2,NA,NAP1,NAM1,N3,NBP1,NBN1,KRUN,NCHIP,NJRA,NWRP 

COMMON/BL12/  NKRITE ,NTAPE ,NTMAX0 ,NTREAL ,TIME ,SORSUM,ITER 

CO!1MCN/BL14/HCOEF,TINF,CNT,ABTUR3,BTURB,VISL,VISMAX,QCORRT,PM1,PM200146900 

CCMMON/BL16/  CONST1 .CONST2 ,CONST3 ,C0NST4 ,C0NST6 ,NT ,U0 ,H ,UGRT , BUOY ,00147000 
S   CP0,PRT,COND0,VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00147100 


001<U500 
00141t>00 
00141700 
001H1800 
O0141Q00 
00142000 
00142100 
00142200 
00142300 
00142400 
00142500 
00142600 
00142700 
00142800 
00142900 
00143000 
00143100 
00143200 
00143300 
00143400 
00143500 
001*3600 
00143700 
00143800 
00143900 
00144000 
00144300 
00144400 
00144500 
00144600 
00144700 
00144800 
00144900 
00145000 
00145100 
00145200 
C0145300 
00145400 
00145500 
00145600 
00145700 
0C145800 
00145900 
0014&000 
C014bl00 
00146200 
00146300 
00146400 
00146500 
0014&600 
00146700 
00146800 
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COMMON/BL22/ICHPBI 10  )  ,NCHPI ( 10 ) ,  JCHPBI 10  I ,NCHPJ( 10 ) ,KCHPB( 10 ) , 
8  NCHPKI 10  )  ,TCHP( 10  )  ,CPS( 10  )  ,C0N5( 10  I  ,WFANl 10 ) 

COMMON/BL31/  TOD(  22  ,16  ,32)  ,ROD<  22  ,lt>,32  ),PODl  22,16,32) 
&       ,COD(  22,16,32  ),UOD(  22,16,32  l,V0D(  22,16,32  )  ,WOD(  22  ,  lt>  ,32  ) 

COMMON/BL32/  T< 22 , 16 ,32  )  ,R< 22 ,16,32 ) ,P< 22,16 ,32  ) 
&  ,C (22, 16, 32  ),U( 22, 16,32 ),V( 22, 16,32 ),M(  22,16,32) 

COMMON/BL33/  TPDl 22  ,16 ,32  )  ,RPDl 22 ,16,32  ),PPD( 22, lb, 32  ) 
8       ,CPD(22,lb,32),UPD(22,lt>,32),VP0(22,16,32),WPD(22,16,32) 

C0MM0N/BL34/  HEIGHT! 22,16,32  I  ,REQ( 22 ,16 ,32 ) , 
&       SMP( 22, 16, 32  ),SMPP( 22, 16, 32 ),PP( 22, lo, 32), 
&      DIM  22,16,32),DV(22,16,32),DH(22,16,32) 

C0MM0N/BL36/API 22 ,16 ,32 ) ,AEl 22 ,16 ,32 ) ,AW(  22 ,16 ,32 ) ,AN( 22,16 ,32 ) , 
S        ASl 22,16,32  ),AF( 22,16,32 ),AB(  22,16,32), 

5  SP(22,16,32),SU(22,16,32),RI(22,16,32) 
COMMON/BL37/VIS(22,16,32),CONDl22,16,32),NOD<22,16,32),RWALL(579) 

6  ,CPM( 22 ,16,32  )  ,HSZ( 3,2  )  ,NHS2( 22 ,16 ,32 ) ,RES0RMf  93  ) 
COMMON/BL39/ALEW,PCURVE,CONSRA,PCURMl,PSOUTH,QCORR,PERROR 

C  ***     CALCULATE  COEFFICIENTS 

DO  100  K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)   IK2=NIM1 

IF  tl.EQ.NI)  IP2=3 

C       CENTRAL  LEN3TH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1,J,K,0,0) 
DXI  =XL(I  ,J,K,0,0) 
DXM1=XL(IK1,J,K,0,0) 

DYF1=YL(I,JP1,K,0,0) 
DYJ  =YL(I,J  ,K,0,0) 
DYM1=YL(I,JM1,K,0,0) 

DZP1=ZL(I,J,KP1,0,0) 
DZK  =ZL(I,J,K  ,0,0) 
DZM1=ZL(I,J,KM1,0,0) 


SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 


DXN=XL(I,JP1,K,0,2) 


00147200 
00147300 
00147400 
00147500 
00147600 
00147700 
00147800 
00147900 
00148000 
00148100 
00148200 
00148300 
00148400 
00148500 
00148600 
00148700 
00148800 
00148900 
00149000 
00149100 
00149200 
00149300 
00149400 
00149500 
0014°b00 
00149700 
00149800 
00149900 
00150000 
00150100 
00150200 
00150300 
00150400 
00150500 
00150600 
00150700 
00150800 
00150900 
00151000 
00151100 
00151200 
00151300 
00151400 
00151500 
00151600 
00151700 
00151800 
00151900 
00152000 
00152100 
00152200 
00152300 
00152400 
00152500 
00152600 
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DXS=XL(I,J  ,K,0,2) 
DXF=XLU,J,KP1,0,3) 
DXB=XL(I,J,K   ,0,3) 

DYF=YL1I,J,KP1,0,3) 
0YB=YL(I,J,K  ,0,3) 
DYE=YLIIP1,J,K,0,1 ) 
DYW=YL(I   ,J,K,0,1) 

DZE=ZL(IP1,J,K,0,1) 
DZW=2L(I  ,J,K,0,1) 
DZN=ZL(I,JP1,K,0,2) 
DZS=ZLU,J   ,K,0,2) 

C  ***    CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE=XL(IP2,J,K,0,1) 
DXE  =XLUP1,J,K,0,1) 
DXH  =XL(I  ,J,K,0,1) 
DXWW=XL(IM1,J,K,0,1) 

DYNN=YL(I,JP2,K,0,2) 
DYN  =YL(I,JP1,K,0,2  ) 
DYS  =YL(I,J  ,K,0,2) 
DYSS=YL(I,JM1,K,0,2 ) 

DZFF=ZL(I,J,KP2,0,3) 
DZF  =ZL(I,J,KP1,0,3) 
DZB  =ZLII,J,K  ,0,3) 
DZBB=ZL(I,J,KM1,0,3) 

C  ***   DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 
DXY3=DXB*DYB 
DYZE=DYE*CZE 
DYZH=DYW<DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 
ZXOYS=DZX3/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 

GN=( R( I ,J,K )*DYP1+R< I ,JP1,K  l*DYJ )/( DYP1+DYJ ) 
Gi=( R( I ,J,K  )*DYM1+R< I ,JM1,K  )*DYJ )/( DYM1+DYJ ) 
GE=IR(I,J,K)*DXP1+R(IP1,J,K  )*DXI )/(DXPl  +  DXI ) 
GW=( R( I ,J,K  )*DXM1+R( IM1,J,K )*DXI )/( DXM1+DXI ) 
GF  =  <  R( I ,J,K  )*DZP1+R( I ,J,KP1  )*DZK )/( DZP1+DZK ) 


00152700 
00152800 
00152900 
00153000 
00153100 
00153200 
00153300 
00153400 
00153500 
00153600 
00153700 
00153800 
00153900 
00154000 
00154100 
00154200 
00154300 
00154400 
00154500 
00154600 
00154700 
00154800 
00154900 
00155000 
00155100 
00155200 
00155300 
00155400 
00155500 
00155o00 
00155700 
00155800 
00155900 
00156000 
00156100 
00156200 
00156300 
0015o400 
00156500 
00156600 
0015o700 
0015oS00 
00156°00 
00157000 
00157100 
00157200 
00157300 
00157400 
00157500 
00157600 
00157700 
00157800 
00157900 
00158000 
00158100 
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GB=(R(I>J,K )*DZM1  +  R(I,J,KM1 l*DZK  )/< DZM1  +  DZK ) 

CN=GN*V< I ,JP1 ,K )*DZXN 
CS=GS*V(I,J  ,K)*DZXS 
CE=GE*U( IP1,J,K  )*DYZE 
CW=GK*U(I  ,J,K)*DYZW 
CF=GF*HII,J,KP1  )*DXYF 
CB=GB*W(I,J,K       )*DXYB 


C0NDN=1 .  /(  (  1 ./CONDI  I ,  J  ,K  )*DYJ  +  1  ./CONDI  I ,  JP1  ,K  )»DYP1  )/(  DYP1+DYJ  ) ) 
CONDS=l./< ll./CONDII>J,K)*DYJ+l./COND(I>JMl,K  1*DYM1  )/( DYM1+DYJ ) ) 
CONDE=l./( ( 1./COND1 I,J,K )*DXI+1. /CONDI IP1,J,K )*DXP1 >/(DXPl*DXI ) ) 
CONDK=l./( <l./COND(I,J,K >*DXI+1 ./CONDI IM1 > J ,K )*DXM1 )/< DXM1+DXI ) ) 
CONDF  =  l ./(  (  1 ./CONDI  I  ,  J  ,K  )*DZK+1  VCOtlDI  I  ,J  ,KP1  )*DZP1  )/(  DZP1+DZK  )  ) 
CONDB=l . /( ( 1 . /CONDI I ,  J  ,K )*DZK*1 ./CONDI  I , J ,KM1  )*DZM1 )/( DZM1+DZK  J ) 

CONDNl=ZXOYN*CONDN*ALEW 
CONDSl=ZXOYS*CONDS*ALEW 
CONDEl=YZOXE*CONDE*ALEW 
CONDKl=YZOXK*CONDW*ALEW 
CONDFl=XYOZF*CONDF*ALEW 
CONDBl=XYOZB*CONDB*ALEH 


CEP  =  (ABS(CE  )+CE  )*DXPl*DXI/< DXE*( DXE+DXW  ))/8. 
CEM  =  ( ABS( CE  )-CE  )*DXPl*DXI/< DXE*( DXE+DXEE ) )/8. 
CKP=(ABSfCH)+CH)*DXMl*DXI/(DXW*(DXH+DXWW))/8. 
CWM=( ABSl CW  )-CW  )*DXMl*DXI/< DXH-M DXW+DXE  ) )/&. 

CNP  =  < ABS( CN  )+CN  I*DYPl*DYJ/( DYN*< DYN+DYS  ) )/8. 
CNM=( ABSl CN  )-CN  )*DYPl*DYJ/l DYN*( DYN+DYNN ) )/8. 
CSP  =  ( ABSl CS  )+CS  >*DYMl*DYJ/( DYS*( OYS  +  DYSS ) >/8. 
CSM=( ABSl CS  J-CS  )*DYMl*DYJ/<  DYS* I DYS+DYN  ) )/8. 

CFP  =  (ABStCF  )+CF)*DZPl*DZK/(DZF*(DZF+DZB  ))/8. 
CFM=(ABS1CF  )-CF  )*DZPl*DZK/l DZF*< DZF  +  DZFF ) J/8. 
CBP  =  ( ABSl CB  )+CB  )*CZMl*DZK/< DZB*( DZB+DZBB ) )/8. 
CBM=( ABSl CB  )-CB  )*DZMl*DZK/( DZB*( DZB+DZF  ) )/8. 

AEII,J,K )=-.5*DXI/DXE*CE+CEP+CEM*( l.+DXE/DXEE  )+CHM*DXH/DXE 
AW(I,J,K  1  =  .5*DXI/DXW*CN+CWM+CKP*< 1 . +  DXW/DXWW  l  +  CEP*DXE/DXW 
AN! I , J ,K  )=- .5*3Y J/DYN*CNtCNP+CNM*( 1 . +DYN/DYNN  >+CSM*DYS/DYN 
ASU,J,K  1=  .5*DYJ/DYS*CS+CSM+CSP*(1.+DYS/DYSS  )+CNP*DVN/DYS 
AFII^Klz-^DZK/DZF^-CF  +  CFP+CFM*!  l.+DZr/DZFF  )+CBM*DZB/DZF 
ABl I,J,K J=  .5*DZK/DZB*Cb+CBM+CBP*( 1. +DZB/DZBB  )+CFP*DZF/DZB 


801  AEE=-CEM*DXE/DXEE 
AEER=AEE*CPDIIP2,J,K) 

802  CONTINUE 

803  AWW=-CWP*DXN/DXWW 
AWWR=ANH*CPD( IM2 , J ,K ) 

804  CONTINUE 


00158200 
00158300 
00158^00 
00158500 
001S8&00 
00158700 
00158800 
00153900 
00159000 
00159100 
00159200 
00159300 
00159400 
00159500 
00159600 
00159700 
00159800 
00159900 
00160000 
00160100 
00160200 
001b0300 
00160-+00 
00162700 
00162800 
00162301 
00162302 
00162803 
00162804 
00162805 
00162806 
00162807 
00162808 
00162809 
00162810 
00162811 
00162812 
00162813 
00162314 
00162815 
00162316 
001o2817 
001b2818 
00162819 
001&2820 
00162821 
00162622 
00162823 
00162830 
00162900 
00163000 
00163100 
00163200 
00163300 
00163400 
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IF  (J.LT.NJ)  GOTO  805 

ANN=0. 
ANNR=0. 
GOTO  806 

805  ANN=-CNM*DYN/DYNN 
ANNR=ANN*CPDl I , JP2>K ) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 

ASS=0. 

AS3R=0. 

GOTO  808 

807  ASS=-C5P*DYS/DYSS 
ASSR=ASS*CPD(I>JM2,K) 

808  CONTINUE 

IF  1K.LT.NK)  GOTO  809 

AFF=0. 

AFFR=0. 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 
AFFR=AFF*CPD<I,J,KP2) 

810  CONTINUE 

IF  IK.GT.2)  GOTO  811 

ABB=0. 
A35R=0. 
GOTO  812 

811  ABB=-CBP*DZB/DZBB 
ABBR=A5B*CPD( I , J ,KK2 ) 

812  CONTINUE 


C  ***  MODIFICATION  FOR  DECK     BOUNDARIES 

900  CONTINUE 

IF  (NOD(IM1,J,K).EQ.O)  GOTO  901 

AKW=0.0 

AWHR=0.0 

901  corrriNUE 

IF  (NODIIP1,J,K).EQ.O)  GOTO  902 

AEE=0.0 

AEER=0.0 

902  CONTINUE 

IF  (NOD(I,JM1,K).EQ.O)  GOTO  903 

ASS=0.0 

ASSR=0.0 

903  CONTINUE 


00163500 
001t>3600 
001o3700 
00163800 
001t>3<»00 
00164000 
O01o4100 
00164200 
00164300 
00164400 
001b4500 
00164600 
00164700 
00164800 
00164900 
00165000 
00165100 
00165200 
00165300 
00165400 
00165500 
00165600 
001o5700 
00165800 
00165900 
00166000 
00166100 
00166200 
00166300 
001b6400 
00166500 
OOI066OO 
001b6700 
00166800 
001o6900 
00167000 
00167100 
00167200 
00167300 
00167400 
00167500 
00167600 
00167700 
0C167800 
001o7900 
00168000 
OOI08IOO 
001bS200 
001o8300 
00168400 
00168500 
00168600 
00168700 
00168800 
00168900 
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IF    (NOD(I,JPl,KKEQ.O)    GOTO    904 

ANN=0.0 

ANNR=0.0 

904  CONTINUE 

IF    (N0D(I,J,KM1).EQ.0>    GOTO    905 

ABB=0.0 

ABBR=0.0 

905  CONTINUE 

IF    (NOQII,J,KP1).EQ.O)    GOTO    906 

AFF=0.0 

AFFR=0.0 

906  CONTINUE 

AP(I,J,K)=(AE(I,J,K)+AW(I,J,K)+AN(I,J,K)+AS(I,J,K) 

8  +AF(I,J,K  l+AB(I,J,K  1+AEE+AWW+ANN+ASS+AFF+ABB ) 

3  +CONDE1+CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 

AE(I,J,K  )=AEII,J,K)+C0NDE1 
AW(I,J,K)=AW(I,J,K l+CONDWl 
AN( I ,J ,K  >=AN< I ,J,K )+CONDNl 
AS(I,J,K)=AS(I,J,K 1+CONDS1 
AFII,J,K)=AFII,J,K)+C0NDF1 
ABII,J,K  l=AB(I>J,K)+CONDBl 

SP(I,J,K)=-ROD(I,J,K )*VOLDT 
SU( I , J ,K )=   ROD( I , J ,K  )*VOLDT*TOD( I , J,K  ) 
SUI I , J  >K )=SU( I ,J,K )+AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
100   CONTINUE 

C   ***  TAKE   CARE   OF   B.C.    THRU   AN,AS,AE ,AK,AF ,A3,SP   AND  SU 

C 

C  **■*  RADIUS  DIRECTION 

DO  500  1=2, NI 
DO  500  K=2,NK 
CC     SP(I,2,K)=SP(I,2,K  l+AS(I,2,K) 
SP(I,2,K)=SP(I,2,K)-AS(I,2,K) 
SU(I,2,K)=SU(I,2,K )+2.0*AS(I,2,K )*CPD(I,1,K) 
SP!I,NJ,K )=SP(I,NJ,K l-AN(I,NJ,K) 

SU(I,NJ,K  )=SUlI,NJ,KH2.*CPDlI,NJPl,K  )*AN(I,NJ,K) 
AS(I,2,K )=0.- 
AN(I,NJ,K (=0. 
500  CONTINUE 


C  **«     CYLIC  CONDITIONS 

DO  600  J=2,NJ 
DO  600  K=2,NK 
SUI  2  ,J,K)=SU(2  ,J,K)+AW(2  ,J,K)*C(1 


,J,K) 


OOlbOOOO 
00169100 
00169200 
00169300 
00169400 
00169500 
00169600 
00169700 
00169800 
00169900 
00170000 
00170100 
00170200 
00170300 
00170400 
00170500 
00170600 
00170700 
00170800 
00170900 
00171000 
00171100 
00171200 
00171300 
00171400 
00171500 
00171600 
00171700 
00171800 
00171900 
00172000 
00172100 
00172200 
00172300 
00172400 
00172500 
00172600 
00172700 
00172800 
00172900 
00173C00 
00173100 
00173200 
00173300 
00173400 
00173500 
00173600 
00173700 
00173800 
00173900 
00174000 
00174100 
00174200 
00174300 
00174400 
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SU(NI,J,K)=SU(NI,J,K)+AE<NI,J,K)*CINIP1,J,K) 
AW<  2  ,J,K)  =  0.0 
AE(NI,J,K)=0.0 
600  CONTINUE 

C  ***      END  OF  SPHERE 

DO  700  1=2, NI 
DO  700  J=2,NJ 

SP(I,J,2  i=SP(I,J,2)+AB(I,J,2) 
SP( I ,J,NK  )=SP( I ,J,NK )+AF( I ,J,NK ) 
AB(I,J,2  1=0. 
AF(I,J,NK)=0. 
700  CONTINUE 


C  ***    ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  K=2,NK 
DO  300  J=2,NJ 
DO  300  1=2, NI 

AP(I,J,K)=AP(I,J,K)-SP(I,J,K) 
300  CONTINUE 


C  ***  VOLUME  MASS  SOURCE  INPUT 

VOLT=0.0 
DO  113  1=2, NI 
DO  113  J=2,NJ 
DO  113  K=16,17 

IF  <NHS2(I,J,K).EQ.O)  GOTO  113 
DXI  =XL(I   ,J,K,0,0) 
DYJ  =YL(I,J   ,K,0,0) 
DZK  =2LU,J,K   ,0,0) 
V0L=DXI*DYJ*D2K*H*H*H 
VOLT=VOLT*VOL 
113  CONTINUE 

DO  111  1  =  2, NI 
D3  111  J=2,NJ 
DO  111  K=lo,17 

IF  (NHS2!I,J,K).EQ.O)  GOTO  111 
DXI  =XL(I   ,J,K,0,0) 
DYJ  =YL(I,J   ,K,0,0) 
D2K  =2L1I,J,K   ,0,0) 
QGQ=Q*H/(  U0*CP0*RHO0*TA ) 
Qt'S=    1.0 

QMS  =  QMS*H/(UO*RHO0) 
V0L=DXI*DYJ*D2K 

SU( I ,  J  ,K  )=SU( I , J,K  HVOL*QMS/VOLT 
111  CONTINUE 


00174500 
0C174t>00 
00174700 
00174800 
00174900 
0017S000 
0017S100 
00175200 
00175300 
00175400 
00175500 
00175600 
00175700 
00175800 
00175900 
00176000 
00176100 
00176200 
00176300 
00176400 
00176500 
00176600 
00176700 
00176800 
00176900 
00177000 
00177100 
00177200 
00177300 
00177400 
00177500 
00177600 
00177700 
00177800 
00177900 
00178000 
00173100 
00178200 
00178300 
00176400 
00178500 
00178t>00 
00178700 
00178300 
00178°00 
00179000 
00179100 
00179200 
00179300 
00179400 
00179500 
00179600 
00179700 
00179800 
00179900 


153 


C  ***   SOLVE  FOR  C 

CALL  TRID  (2>2,2,NI,NJM1,NK,C) 

C  ****  RESET  CONCENTRATION  AT  R  =  0.0  AND  END  OF  SPHERE 

DO  81  K=1,NKP1 

AVT=0.0 

DO  82  1=2, NI 

AVT=AVT+( C( I ,2 ,K )/NIMl ) 

82  CONTINUE 
DO  83  I=1,NIP1 
C(I,1,K)=AVT 

83  CONTINUE 
81  CONTINUE 

DO  74  I=1,NIP1 
DO  74  J=1,NJP1 
C(I,J,1)=C(I,J,2) 

C(I,J,NKP1)=C(I,J,NK) 

74  CONTINUE 


C  *** 


FOR  SURFACE  MASS  EXCHANGE  WITH  SURROUNDING 


80 


00180000 
00180100 
00180200 
00180300 
00180-400 

ooieosoo 

00180600 
00180700 
00180800 
00180900 
00181000 
00181100 
00181200 
00181300 
00181400 
00181500 
00181600 
00181700 
00181800 
00181900 
OC182000 
00182100 
00182200 
00182300 
00182^00 
00182500 
00182600 
00182700 
00182800 
00182900 
00183000 
00183100 
001E3200 
00183300 
00183^00 
00163500 
00183600 
00183700 
00183800 
00183900 
00184000 
00184100 
001842C0 

#±ri*#*++±*##*********#*##**#*1Hi****#*##**-^*#*##~*##*#***#-*#*****#         0018^300 

SUBROUTINE  CALU  0018<+<t00 

****#****##***#*********&***##¥&#*******##*-*■*#**#******#***#*****  00184500 
C0MM0N/R4/XCJ 93 ),YC< 93),ZC<93 ),XS( 93  ),YS( 93  ),ZS(93),  0018*600 

&  DXXCI 93  ),DYYC(93),DZZC<  93  ),DXXS( 93),DYYS( 93),DZZS(  93)    00184700 

COMMON/BL1/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR  00184800 

COMMON/BL7/NI ,NIP1 ,HIM1 ,NJ ,NJP1 ,NJM1 ,t4K ,NKP1 ,NKM1  00184900 

&  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP  00185000 
COMMON/BL12/  NWRITE ,NTAPE ,NTMAXO ,NTREAL , TIME ,SORSUM, ITER  00185100 

CCMMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PM1,PM200185200 
COMMON/BL16/  CONST1 ,CONST2 ,CONST3 ,C0NST4 ,CONST6 ,NT ,U0 ,H ,UGRT , BUOY ,00185300 

&      CP0,PRT,COND0,VIS0,RHOO,HR,TR,TA,DTEMP,THRITE,TTAP£,TMAX,GC>RAIR001854O0 


DO  84  1=2, NI 
DO  84  K=2,NK 
CII,NJP1,K)=C(I,NJ,K) 
84   CONTINUE 


C  ***        FOR  CYLIC  CONDITION 

DO  80  J=1,NJP1 

DO  80  K=1,NKP1 

C(  1,J,K)=C(NI,J,K) 

CtNIPl,J,K)=C(2,J,K) 

CONTINUE 

RETURN 

END 
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COMMON/BL20/SIG1K  22,16,32 ) 
8  ,SIG13<22,16,32) 

COMMON/BL22/ICHPBI  10 ),NCHPI 
8  NCHPK(10),TCHP1 

C0MM0M/BL31/  TOD( 22  ,16  ,32  ) , 
8   ,CC0l 22, 16,32), UODI 22,16, 

CONNON/BL32/  T< 22 ,16 ,32  )  ,Rl 
8        ,C(22,16,32  ),U(22,16 

COMMON/BL33/  TPD( 22 ,1b ,32  ) , 
8        ,CPD(22,16,32 l,UPDl  2 

C0MM0N/BL34/  HEIGHT! 22 , lb ,3 
8  SMPl 22,16,32),SMPP( 2 
8     DUt22,16,32),DV( 22,16, 

COMMON/BL36/API  22,16,32 t,AE 
8  AS(22,16,32  I.AF122, 
8     SP(22,16,32),SU(22,16, 

COMMON/BL37/  VIS( 22 ,16 ,32 ) , 
8        ,CPM(22,lb,32),HS2(3 

C  ***    CALCULATE  COEFFICIENTS 

DO  100  K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM1=NI 

IF  (I.EQ.2  )  IM2=NIM1 

IF  (I.EQ.3  )  IM2=NI 

IF  ( I  .EQ.fJI  )  IP2  =  3 


central  length  of  the  scale  control  volume 

dxp1=xl<ip1,j,k,1,0> 
dxi  =xlii  ,j,k,i,oj 
dxm1=xl(im1,j,k,1,0) 

dyp1=yl(i,jp1,k,1,0) 
dyj  =yl(i,j  ,k,1,0) 
dym1=yl(i,jm1,k,1,0) 

dzp1=2l(i,j,kp1,1,0) 

DZK  =2L(I,J,K  ,1,0) 
D2M1=2LII,J,KM1,1,0) 


,SIG12122,16,32),SIG22(22,lb,32) 

,SIG23l22,lb,32),SIG33(22,lb,32  I 

I  10  l.JCHPBI 10  ),NCHPJ( 10  ),KCHPB( 10), 

10 ) ,CPS( 10  )  ,CONS( 10  I  ,HFAN( 10  ) 

ROD( 22, lb, 32), POD  I  22, lb, 32  » 

32  I.VODl 2 2,  lb, 32  l,WOD( 22,16,32) 

22, 16, 32), PI 22,lo,32  I 

,32), VI 22,16,32  I  ,Wl 22,16,32 ) 

RPDI 22,16,32  ),PPD( 22, lb, 32) 

2, lb, 32  I.VPDl 22,16,32  ),WPD1 22,16,32) 

2),REQ(22,16,32), 

2, lb, 32  »,PP(22,16,32), 

32), 0W122, 16,32) 

(22,lb,32),AW( 22,16,32  ),AN( 22,16,32), 

16,32),AB(22,16,32), 

32),RI(22,16,32) 

CONDI  22,16,32), NOD! 22 ,16 ,32 ) ,RWALL(  579 

,2 ) ,NHSZl 22,16,32 ) ,RESORMl 93 ) 


00185500 
00185600 
00185700 
00185800 
00185900 
0018o000 
OOI80IOO 
00186200 
00186300 
0016b<+00 
00186500 
00186600 
00186700 
0018b800 
00186900 
00187000 
100187100 
00187200 
00187300 
00187400 
00187500 
00187600 
00187700 
00187800 
00187900 
00188000 
00188100 
00188200 
00188300 
00188<+00 
00188500 
00188600 
0018S700 
00188500 
00188900 
00189000 
00189100 
00189200 
00189300 
0013°<+00 
0018°500 
00189bOO 
C0189700 
001S9300 
00189900 
001°0000 
00190100 
00190200 
00190300 
00190400 
00190500 
00190600 
001°0700 
00190800 
00190900 
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C  ***    SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,1,2) 
DXS=XL(I,J  ,K,1>2) 
DXF=XHI,J,KP1,1,3  ) 
DXB=XL(I,J,K   ,1,3  J 

DYF=YL<I,J,KP1,1,3) 
DYB=YL(I,J,K  ,1,3) 
DYE=YL(IP1,J,K,1,1I 
DYW=YL(I   ,J,K,1,1) 

D2E=ZL(IP1,J,K,1,1) 
0ZW=ZL(I  ,J,K,1,1) 
DZN=ZL(I,JP1,K,1>2) 
DZS=ZHI,J   ,K,1,2) 

C  ***    CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  U 

DXEE=XL(IP2,J,K,1>1) 
DXE  =XL(IP1,J,K,1,1) 
DXW  =XL(I  ,J,K,1,1) 
DXWW=XL(IM1,J,K,1,1) 

DYNN=YL(I,JP2,K,1,2) 
DYN  =YLU,JP1,K,1,2) 
DYS  =YL(I,J  ,K,1,2) 
DYSS=YLU,JM1,K,1,2) 

DZFF=ZL(I,J,KP2,1,3) 
DZF  =ZL(I,J,KP1,1,3) 
DZB  =ZL(I,J,K  ,1,3) 
DZBB=ZL(I,J,KM1,1,3) 

C  ***   DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZH 
DZXN=DZN*DXN 
DZXS=DZ5*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZH/DXW 


O0191COO 
00191100 
001°1200 
00191300 
00191400 
O0191SO0 
00191600 
00191700 
00191800 
00191900 
00192000 
00192100 
00192200 
00192300 
00192400 
00192500 
00192600 
00192700 
00192800 
00192900 
00193000 
001°3100 
00193200 
00193300 
00193400 
00193500 
00193600 
00193700 
00193800 
00193900 
0019^000 
00194100 
00194200 
00194300 
00194400 
00194500 
00194b00 
00194700 
00194800 
00194900 
00195000 
0G1°5100 
001°5200 
00195300 
00195400 
00195500 
00195600 
00195700 
00195800 
00195900 
00196000 
00196100 
00196200 
00196300 
00196400 
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C  ***     USE  SINGLE  AND  BI -LINEAR  INTERPOLATION  TO  EVALUATE 
C         PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GNE=SILIN(R(I  >JP1,K),R(I  , J ,K  )  ,DYP1 ,0YJ  l*Vl I  ,JP1,K) 
GNW=SILIN(R(IM1,JP1,K  )  ,R( IM1 , J ,K ) ,DYP1 ,DYJ >*V( IM1 ,JP1 ,K  ) 
GSE=SILIN(R(I  ,JM1,K),R(I  , J >K  )  ,DYM1 ,DYJ  l*V( I  ,J  ,K  ) 
GSW=SILINIR(IM1,JM1,K),R(IM1,J,K),DYM1,DYJ)*V<IM1,J   ,K) 

GE  =SILIN(R(IP1,J,K),R(I  ,J  ,K  )  ,DXEE >DXE  )*U< IP1 ,J ,K ) 
GP  =SILIN(R(IM1,J,K),R(I  ,J,K),DXW  ,DXE)*UlI  ,J,K) 
GW  =SILIN(R(IM2,J,K),R(IM1,J,K),DXWW,DXW)*UIIM1,J,K) 

GFE=SILIN(R(I  ,J,KP1),R(I  ,  J,K  )  ,DZP1 ,DZK >*W(  I  ,J,KP1) 
GFW=SILIN( R( IM1,J,KP1  )>R< IM1 , J ,K  )  ,DZP1 ,D2K  )*Wl IM1,J,KP1 ) 
GBE=SILIN(R(I  ,J,KM1),R(I  ,J  ,K  )  ,DZM1  ,DZK.  )*N(  I  ,J,K  ) 
GBW=SILINi R( IM1 , J ,KM1 )  ,Rl IM1 , J ,K ) ,DZM1 >DZK  >*W( IM1 , J ,K   ) 

CE=0.5*1GE+GP1*DYZE 
CW=0 . 5*1 GP+GW )*DYZW 

CN=SILIN< GNE ,GNN,DXE ,DXH )*DZXN 
CS=SILIN( GSE ,GSW,DXE ,DXW  )*DZXS 

CF=SILINl GFE ,GFW,DXE ,DXW  l*DXYF 
CB=SILINl GBE ,GBN,DXE ,DXW )*DXYB 

VISF=VISII       ,J,K) 
VISW=VIS(IM1,J,K) 


VISN= 


s 


VISS  = 


s 


VISF  = 


s 


VISB  = 


a 


(VISII  ,JP1,K)+VIS(I  ,J,K)  + 
VIS(IM1,JP1,K)+VIS(IM1,J,K)  )/<k0 

(VIS(I  ,JM1,K)+VIS(I  ,J,K1+ 
VIS(IMl,JMl,K)+VIS(IMl,J,K))/4.0 

<VIS(I  ,J,KP1  )+VIS(I  ,J,KW 
VIS(  IM1,J,KP1  )+VIS(  IM1,  J, K  ))/<♦.  0 

(VISII  ,J,KM1  )+VIS(I  ,J,K)  + 
VIS(  IM1,J,KM1  )+VIS(  IM1, J, K  ))/<♦. 0 


VISNl=ZXOYN*VISN 
VISSl=ZXOYS*VISS 
VISEl=YZOXE*VISE 
VISWl=YZOXW*VISH 

VISFl=XYOZF*VISF 
VISBl=XYOZB*yiSB 


CEP  =  (ABS(CE  )+CE  )*DXE/DXI/16 . 
CEM=( ABS( CE  )-CE  )*DXE/DXP1/16 . 
CNP  =  ( ABS! CH  )+CH  )*DXW/DXM1/16. 
CWM= ( ABSt  CH  J-CH  )*DXH/DXI/16 . 


CNP  =  l ABSI CN  )+CN  )*DYPl*DYJ/( DYN*( DYN+DYS  ) )/8. 


00196500 
0019o600 
00196700 
0019o800 
00196°00 
00197000 
00197100 
00197200 
00197300 
00197^00 
00197500 
00197600 
00197700 
00197800 
00197900 
00198000 
00198100 
00198200 
00198300 
00198400 
00193500 
001°8600 
001°8700 
00198800 
00198900 
00199000 
00199100 
00199200 
00199300 
001Q9<+00 
00199500 
00199600 
00199700 
00199800 
00199900 
00200000 
00200100 
00200200 
00200300 
00200<+00 
0020C500 
00200600 
00200700 
00200800 
00200900 
00201000 
00201100 
00201200 
00201300 
00201400 
00201500 
00201600 
00201700 
00201800 
00201900 


157 


CNM=I ABSI CM )-CN  l*DYPl*DYJ/( DYN*( OYN+DYNN  )  )/8. 
CSP  =  1 ABS( CS  )+CS  >*DYMl*DYJ/( DYS*< DYS  +  DYSS  )  )/8. 
CSM=<  ABSI CS  l-CS )*DYMl*DYJ/< DYS*( DYS+DYN  ) )/8. 

CFP  =  (ABS(CFI  +  CF  l*DZPl*DZK/( DZF*< D2F  +  DZB  ))/8. 
CFM=IABS(CF  )-CF  )*DZPl*DZK/l DZF*< DZF+DZFF  )  )/6. 
CBP  =  ( ABSI CB  l+CB  l*DZMl*DZK/( DZB*( DZB+DZBB ) )/8. 
CBM  =  ( ABSI CB  J-CB  )*DZM1*DZK/I DZB*l DZB+DZF  J )/8. 

AE(  I ,J,K )=-.5*CE+CEP+CEM*( l.+DXE/DXEE HCHM*DXW/DXE+VISE1 
AW  I  I  ,  J  ,K  )=  .5*CW+CWM+CWP*l  1 .  +DXW/DXWW  )*CEP*DXE/DXH+VISW1 


AN( I ,J,K >=- .5*DYJ/DYN*CN+CNP+CNM*( 1. +DYN/DYNN I+CSM*DYS/DYN+VISN1 
AS(I,J,K  1=  .£*DYJ/DYS*CS+CSM+CSP*< 1 . +DYS/DYSS  )+CNP*DYN/DYS*VISSl 
AF(I,J,K)=-.5*DZK/DZF*CF+CFP+CFM*<1.*DZF/DZFF)+CBM*DZB/DZF+VISF1 
AB( I ,J,K  )=  .5*DZK/DZB*CB+CBM+CBP*( 1 . +DZB/DZBB  HCFP*DZF/DZB+VISB1 


801  AEE=-CEM*DXE/DXEE 
AEER=AEE*UPD(IP2>J,K) 

802  CONTINUE 

805  AWW=-CWP*DXW/DXWW 

AWNR=AKW*UPDl IM2 , J ,K ) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 
ANN=0. 
ANNR=0 . 
GOTO  806 

805  ANN=-CNM«DYN/DYNN 
ANNR=ANN*UPD( I ,JP2 ,K ) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 

ASS=0. 

ASSR=0. 

GOTO  808 

807  ASS=-CSP*DYS/DYSS 
ASSR=ASS*UPDU,JM2,K) 

80S  CONTINUE 

IF  (K.LT.NK)  GOTO  809 

AFF=0. 

AFFR=0. 

GOTO  810 

809  aff=-cfm*dzf/dzff 
affr=aff*upd(i,j,kp2) 

810  continue 

if  (k.gt.2)  goto  811 

ABB=0. 
ABBR=0. 
GOTO  812 


00202000 
00202100 
00202200 
00202300 
00202400 
00202500 
00202600 
00202700 
00202800 
00202900 
00203000 
00203100 
00203200 
00203300 
00203310 
00203320 
00203330 
00203540 
00203400 
00203500 
00203600 
00203700 
00203800 
00203900 
00204000 
00204100 
00204200 
00204300 
00204400 
00204500 
00204600 
00204700 
00204800 
00204900 
00205000 
00205100 
00205200 
00205300 
00205400 
00205500 
00205600 
00205700 
00205800 
00205900 
00206000 
00206100 
00206200 
00206300 
00206400 
00206500 
00206600 
00206700 
00206800 
00206900 
00207000 
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£11  ABB=-CBP*DZB/DZB8 

ABBR=ABB*UPD< I , J  >KM2 ) 
812  CONTINUE 


C  ***  MODIFICATION  FOR  DECK     BOUNDARIES 

900  CONTINUE 

IF  <NOD(IM2,J,K).EQ.O)  GOTO  901 

AWW=0.0 

AKWR=0.0 

901  CONTINUE 

IF  <N0D(IP1,J,K).EQ.0)  GOTO  902 

AEE=0.0 

AEER=0.0 

902  CONTINUE 

IF  <NOD(I,JMl,K).EQ.O)  GOTO  903 

ASS=0.0 

ASSR=0.0 

903  CONTINUE 

IF  (NOD(I,JP1,K).EQ.O)  GOTO  904 

ANN=0.0 

ANNR=0.0 

904  CONTINUE 

IF  (NOD(I,J,KM1).EQ.O)  GOTO  905 

AB3=0.0 

ABBR=0.0 

905  CONTINUE 

IF  INOD(I,J,KP1).EQ.O  )  GOTO  906 

AFF=0.0 

AFFR=0.0 

90o  CONTINUE 


C  ***    SU  FROM  NORMAL  STRESS 

RE  =  (SIG11(I  ,J,K  )-fU(IPl,J,K)-U(I  ,J,K> >*VISE/DXE  )*DYZE 
RW  =  (  SIG1K  IM1 ,  J  ,K  )-(  U(  I  ,  J  ,K  )-U(  IM1 ,  J  ,K  )  )*VISH/DXW  l*DYZW 
RN=(  SIG12( I , JP1 ,K  )-l U( I , JP1 ,K  )-Ul I , J  ,K  )  l*VISN/DYN  l*DZXN 
RS  =  (SIG12(I,J  ,K)-IU(I,J  ,K)-U(I,JM1,K) »*VISS/DYS)*DZXS 
RF  =  l SIG13I I , J ,KP1  )-l Ul I ,J ,KP1  )-U( I , J ,K  )  )*VISF/DZF  )*DXYF 
RB=(SIG13(I,J,K   )-(U(I,J,K   )-U( I ,J ,KM1 )  )*VISB/DZB  J*DXYB 

C  ***        SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 


00207100 
00207200 
00207300 
00207400 
00207500 
00207600 
00207700 
00207800 
00207900 
00208000 
00208100 
00203200 
00206300 
00208400 
00208500 
00208600 
00208700 
00208800 
00208900 
00209000 
00209100 
00209200 
00209300 
00209400 
00209500 
00209&00 
0020°700 
00209800 
00209900 
00210000 
00210100 
00210200 
0C210300 
00210400 
00210500 
00210o00 
00210700 
00210800 
00210900 
00211000 
00211100 
00211200 
00211300 
00211400 
00211500 
00211600 
00211700 
00211800 
00211900 
00212000 
00212100 
00212200 
00212300 
00212400 
00212500 
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AVG12=0 .5*( SIG121 I , JP1 ,K J+SIG12! I , J ,K  ) ) 
AVG13=0.5»MSIG13(  1 ,  J.KP1  1+SIG13!  1  ,J  ,K  ) ) 
AVG22=SILIN{ SIG22( I , J,K  )  ,SIG22( IM1 , J,K  )  ,DXE ,DXW  I 
AVG33=SILINl SIG33( I > J ,K ) .5IG331 IM1 , J ,K I >DXE ,DXW  ) 

AU1=U(I,J,K) 

AU2=BILIN(V(I  ,JP1,K),V(I  ,J,K  )  ,DYJ ,DYJ, 
8  V(IM1,JP1,K),V(IM1,J>K),DYJ,DYJ,  DXE,DXW) 

AU3=BILIN(W(I  ,J,KP1),W(I  , J,K  )  ,DZK >DZK, 
2  WlIMl,J,KPl),W<IMl,J>K),DZK,DZK,  DXE.DXW) 

AR=SILIN(R(I,J,K),R<IM1,J,K),DXE,DXW) 

ARU12=AP*AU1*AU2 
ARU13=AR*AU1*AU3 
ARU22=AR*AU2*AU2 
ARU33=AR*AU3*AU3 

RRY  =  ( AVG12-ARU12  )*DZK*< DXN-DXS  ) 
RRZ  =  l AVG13-ARU13  )*DYJ*( DXF-DXB  ) 
RRX  =  ( AVG22-ARU22  >*DZK*( DYE-DYW)+ 
8  (AVG33-ARU33)*DYJ*(DZE-DZW) 

API  I,  J, K  )=AE(I,J,K)+AW(I,J,K)+AN(I,J,K>+AS<I,.J,K) 
8  +AF(I,J,K)+AB(I,J,K  l+AEE+AWW+ANN+ASS+AFF+ABB 

SP( I ,J ,K )  =  -( ROD( I , J ,K )*DXW+ROD( IM1, J ,K  >*DXE )/l DXW+DXE  >*VOLDT 

SU( I >J,K  )  =    ( ROD! I , J ,K )*DXW+RODl IM1,J ,K  J*DXE  J/l DXW+DXE )*VOLDT 
8  *UODlI,J>K) 

SU(I,J,K)=SU(I,J,K)+DYJ*DZK*(P(IM1,J,K  )-P(I,J,K)) 
8  +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 

8  +RE-RH+RN-RS+RF-RB+RRY+RRZ-RRX 

8-BUOY*SIN! ZC( K ) )*( ( R( I ,J ,K  )-REQi I , J ,K  )  i*DXW*C03< XC( I J )♦(  Rl  IM1, 
8   J ,K  J-REQl IM1, J,K  )  )*DXE*COS< XC( IMi  ) )  J/t  DXW+DXE )*VOL 
100   CONTINUE 

C   ***  TAKE   CARE    OF   B.C.    THRU  AN,AS,AE ,AH,AF ,AB,SP   AND   SU 

C 

C  ***    RADIUS  DIRECTION 

DO  500  K=2,NK 
DO  500  1=2, NI 
CC    SP(I,2,K)=SPf I,2,K)+AS(I,2,K) 
SP(I,2,K  )=SP(I,2,K)-AS(I,2,K) 
SU(I,2,K)=SU(I,2,K  )+2.0*U(I,l,K)*ASlI,2,K) 
SP(  I  ,NJ  >K  l=SP(  I  ,NJ  ,K  )-ANl  I  ,NJ  ,K  ) 
AN(I,NJ,K 1=0. 
AG(I,2,K)=0. 
500  CONTIfJUE 

C  ***    CYLIC  CONDITION 

DO  B02  K=2,NK 
DO  502  J=2,NJ 
SU(2  ,J,KJ=SU(2  ,J,K)+AW(2  ,J,K)*U(1    ,J,K) 


00212600 
00212700 
00212800 
00212000 
00213000 
00213100 
00213200 
00213300 
00213400 
00213500 
00213600 
00213700 
00213800 
00213900 
00214000 
00214100 
00214200 
00214300 
00214400 
00214500 
00214600 
00214700 
00214800 
00214900 
00215000 
00215100 
00215200 
00215300 
00215400 
0U215500 
00215600 
00215700 
C0215800 
00215900 
00216000 
00216100 
00216200 
00216300 
00216400 
00216500 
00216600 
00216700 
00216800 
00216900 
00217000 
00217100 
00217200 
00217300 
00217400 
00217500 
00217600 
00217700 
00217800 
00217900 
00218000 
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SU(NI,J,K  »=SU(NI,J,K  )+AE<NI,J,K  )*U( NIP1,J,K ) 
AHl  2  ,J,KI  =  0.0 
AE(NI,J,K)=0.0 
502  CONTINUE 


C  *-** 


FRONT  AND  BACK  MALLS 


DO  600  1=2, NI 
DO  600  J=2,NJ 

C  ***        SLIP  HALLS 

SP(I,J,2)=SP(I,J,2  UAB(I,J,2) 
SP(I,J,NK)=SP<I,J,NK)+AF<I,J,NK) 

AF(I,J,NK>=0. 
AB(I,J,2)=0. 

600   CONTINUE 


IF  INCHIP.EQ.O)  GOTO  105 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1,NCHIP 

I3=ICHPB(N) 

ie=ib+nchpi(n)-1 

ibhi=ib-i 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JB+NCHPJlN)-l 

JBMi=J3-l 

JEP1=JE+1 

KB=KCKPB(N) 

KE=KB+NCHPK<N)-1 

KBM1=KB-1 

KEP1=KE+1 

DC  102  J=J3,JE-1 
DO  102  K=KB,KE-1 
AE(IBM1,J,K  1  =  0.0 
AWIIEP1>J,K)=0.0 

102  CONTINUE 

DO  103  I=IB,IE 

DO  103  K=KB,KE-1 

£P( I ,  JBM1 ,K  )=SP( I , JBM1 ,K )-AN( I ,JBM1 ,K ) 

AN(I,JBM1,K J=0.0 

SP(  I  ,JE  ,K  )=SP(  I  ,JE  ,K  J-AS(  I  ,JE  ,K  ) 
AS(I,JE,K)=0.0 
105  CONTINUE 


00218100 
00218200 
00218300 
00218400 
00218500 
00218600 
00218700 
00218300 
00218900 
0021°000 
00219100 
00219200 
00219300 
00219<+00 
00219500 
00219600 
00219700 
00219800 
00219900 
00220000 
00220100 
00220200 
00220300 
00220400 
00220500 
00220600 
00220700 
00220800 
00220900 
00221000 
00221100 
00221200 
00221300 
00221400 
00221500 
00221600 
00221700 
00221800 
00221900 
00222000 
00222100 
00222200 
00222300 
00222400 
00222500 
00222600 
00222700 
00222800 
0C222900 
00223000 
00223100 
00223200 
00223300 
00223400 
00223500 
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DO  106  I=IB,IE 

DO  106  J=JB,JE-1 

SP(I,J,KBM1  )=SP(I,J,KBM1  )-AF(I,J,KBMl) 

AF(I,J,KBM1 1=0.0 

SP(I,J,KE  )=SP(I,J,KE  )-AB(I,J,KE  ) 
AB(I,J,KE  )=0.0 
106  CONTINUE 


C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB,IE 

DO  104  J=JB,JE-1 

DO  104  K=KB,KE-1 

SP(I,J,K)=-1.0E20 

AW(I,J,K)=0. 

AE(I,J,K1=0. 

AS(I,J,K)=0. 

AN(I,J,K)=0. 

SU(I,J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 

C    *1tt*1t*%*1t*ttZ1tt*9*9*1S99t9tt9S*99*9ttXt9tnit9tt999t91t*ttt1t*9 


C  *** 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATION 


DO  501  K=2,NK 
DO  301  J=2,NJ 
DO  301  1=2, NI 
DYJ=YL(I,J,K,1,0) 
DZK=ZL(I,J,K,1,0J 
DYZ=DYJ*DZK 

API  I, J, K  )=AP(I,J,K)-SPII,J,K) 
DU(I,J,K  I  =  DYZ/APII,J,K  ) 
301  CONTINUE 


C  ***   SOLVE  FOR  U 

CALL  TRID  (2,2,2,NI,NJ,NK,U) 

DO  74  I=2,NIP1 
DO  74  J=2,NJP1 
U(I,J,l)=UlI,J,2) 
U(I,J,NKP1)=U(I,J,NK) 
74   CONTINUE 


00223600 
00223700 
00223800 
00223900 
00224000 
00224100 
00224200 
00224300 
00224400 
00224500 
00224600 
00224700 
00224800 
00224900 
00225000 
00225100 
00225200 
00225300 
00225400 
00225500 
00225600 
00225700 
00225800 
00225=100 
00226000 
00226100 
00226200 
00226300 
00226400 
00226500 
00226600 
00226700 
00226800 
0C226900 
00227000 
00227100 
00227200 
00227300 
00227400 
00227500 
00227600 
00227700 
00227800 
0C227°00 
00228000 
00228100 
00228200 
00226300 
00228400 
00228500 
00228600 
00228700 
00228800 
00228900 
00229000 
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DO  7°  I=1,NIP1 
DO  79  K=1,NKP1 
UU,l,k)=U(I,2,K) 
7"?  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  112 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  DECK 

DO  110  N=1,NCHIP 

IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

K3=KCHPB(N) 

KE=Kb+NCHPK(N)-I 

DO  103  I=IB,IE 

DO  108  J=JB,JE-1 

DO  103  K=KB,KE-1 

U( I,J,K  1=0.0 
108  CCNTINUE 
110  CONTINUE 
112  CONTINUE 

C  ^^s;5=^srsn-;=5-=ss^sss=?;5s;3ffn«ss«itfissc?;s*=»?s^«ecs»55s*««sc* 


RETURN 
END 


SUBROUTINE  CALV 

C0MM0N/R4/XCI  93  ),YC(  93  )  ,ZC<  93  )  ,XS(  93),YS<93  ),ZS(93), 
2  DXXCl  93 ),DYYC<  93  J ,DZZC( 93  J ,DXXS( 92),DYYS( 93),DZZS< 93) 

COMKON/BL1/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR 

COMMCN/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP>1 ,NJM1 ,NK ,NKP1 ,NKM1 
8   ,NIP2 ,NJP2 ,NKP2 .NA ,NAP1 ,NAM1 ,NB ,N3P1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP 

COir!CN/EL12/  NWRITE,NTAPE,NTMAXO,NTREAL, TIME ,SORSUM, ITER 

COMM0N/5L16/  CONST1  ,CONST2  ,CONST3  , C0NST4  ,C0NST6  ,NT  ,U0  ,H  ,UGRT  ,BUOY 
8   CP0,PRT,COND0,VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAI 

COMMON/3L20/SIGll(22,16,32),SIG12(22,16,32),SIG22l22,lto,32) 
8  >SIG13< 22,16,32),SIG23(22,16,32),SIG33(  22,16,32) 

COMMON/BL22/ICHPB(10),NCHPIl 10 ),JCHPB( 10  ),NCHPJ( 10  ),KCHPB(10), 
8  NCHPKI 10),TCHP(10),CPS(10),CONS110),WFAN(10) 

COMMON/BL31/  TOD< 22 ,lo ,32  )  ,ROD( 22  ,16 ,32  )  ,POD( 22 ,lo ,32  ) 
8   ,COD( 22,16,32  )  ,UOD( 22 ,16 ,32  )  ,VOD( 22 ,16 ,32 ) ,WOD( 22 ,16 ,32 ) 

COMMON/BL32/  T( 22  ,16 ,32  )  ,R( 22 ,16,32  )  ,P( 22 ,16 ,32  ) 
8        ,Cl 22,lo,32),U<22,16,32),V(22,l6,32),W( 22,16,32) 


00229100 
00229200 
00229300 
0022Q400 
0022°S00 
0022°o00 
0022^700 
00229800 
00229900 
00230000 
00230100 
00230200 
00230300 
00230400 
00230500 
00230600 
00230700 
00230800 
00230900 
00231000 
00231100 
00231200 
00231300 
00231400 
00231500 
00231600 
00231700 
00231800 
00231900 
00232000 
00232100 
00232200 
00232300 
00232400 
00232500 
00232t>00 
00232700 
00232800 
00232<>00 
00233000 
00233100 
00233200 
00233300 
00233400 
00233500 
,00233600 
R00233700 
00232800 
00233900 
00234000 
00234100 
00234200 
00234300 
00234400 
00234500 
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COMNON/BL33/  TPDI  22,1&,32  )  ,RPD( 22 , 16 ,32  )  ,FPDt  22  ,16  ,32  I 
8       ,CPD(22,lo,32  ),UPD(22,l6,32),VPD(22,16,32),WPD(22,16,32) 

C0MM0N/BL34/  HEIGHT! 22 ,lo ,32  )  ,REQ( 22,lo,32), 
8       SNP(22,16,32),SMPP<22,16,32),PP122,16,32), 


8      DU< 22,16,32 ),DVl 22,16,32 ),0W(  22,lo,32 ) 

C0MM0N/BL3o/AP( 22,16,32 ),AE<  22 ,lo ,32  I  ,AW( 22 , 16 ,32 ) ,AN( 22 ,16 ,32 ) , 
&        AS<  22,16,32 ),AF<  22,16,32  I, AB(  22,16,32), 
8     SPl 22,16,32  ),SU( 22,16,32 ) ,RI(  22 ,16,32 ) 

COMMON/BL37/  VIS( 22,16,32  1 , CONDI  22 ,16 ,32  )  ,NOD( 22 ,16  ,32  ),RKALL(579 
8        ,CPM122,16,32),HSZ(3,2),NHSZ<22,16,32),RES0RM< 93) 


C  ***    CALCULATE  COEFFICIENTS 

DO  100  K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=3,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 

IF  (I.EQ.NI )  IP2=3 


C       CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1,J,K,2,0) 
DXI  =XL(I  ,J,K,2,0) 
DXM1=XL(.IM1,J,K,2,0) 

DYP1=YL(I,JP1,K,2,0 ) 
D^J  =YL(I,J  ,K,2,0  I 
DYM1=YLU,JM1,K,2,0  ) 

DZP1=ZL1I,J,KP1,2,0 ) 
DZK  =ZL(I,J,K  ,2,0) 
CZ:il=ZL(I,J,KMl,2,0) 

C  ***    SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,2,2) 
DXS=XL(I,J  ,K,2,2) 
DXF=XL(I,J,KP1,2,3) 
DXB=XL(I,J,K   ,2,3) 

DYF=YL(I,J,KP1,2,3) 


00234600 
00234700 
00234800 
00234900 
00235000 
00235100 
00235200 
00235300 
)00235400 
00235500 
00235600 
00235700 
00235800 
00235900 
00236000 
00236100 
00236200 
00236300 
00236400 
00236500 
00236o00 
00236700 
00236800 
00236900 
00237000 
00237100 
00237200 
00237300 
00237400 
00237500 
00237600 
00237700 
00237800 
00237900 
00238000 
00238100 
00238200 
00233300 
00238400 
00238500 
00238o00 
00233700 
002388C0 
00238900 
0023*5000 
00239100 
00239200 
OC239300 
00239400 
00239500 
00239600 
00239700 
00239800 
00239900 
00240000 
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DYB=YL(I,J,K  ,2,3) 
DYE=YL(IP1,J,K,2,1) 
DYW=YL(I   ,J,K,2,1) 

DZE=2L(IP1,J,K,2,1) 
D2H=2L(I  ,J,K,2,1) 
D2N=2L(I,JP1,K,2,2) 
D2S=2L(I,J   ,K,2,2> 

C  ***    CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

DXEE=XL(IP2,J,K,2,1) 
DXE  =XL(IPI,J,K,2,1) 
DXW  =XL<I  ,J,K,2,1) 
DXWW=XL1IM1,J,K,2,1) 

DYNN=YL(I,JP2,K,2,2) 
DYN  =YL(I,JP1,K,2,2  ) 
DYS  =YL(I,J  >K,2,2) 
DYSS=YL(I,JM1,K,2,2) 

DZFF=2L(I,J,KP2,2,3) 
DZF  =2L(I,J,KP1,2,3) 
D2B  =2L(I,J,K  ,2,3) 
D2BB=2L(I,J,KM1,2,3) 

C  ***    DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY2E=DYE*C2E 
DY2W=DYW*D2W 
D2XN=D2N*DXN 
D2XS=D2S*DXS 

VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 

ZX0YN=D2XN/DYN 
2X0YS=C2XS/DYS 
XYC2F=3XYF/D2F 
XVCZB=DXiB/D2B 
Y20XE=DYZE/DXE 
Y20XW  =  D)'ZH/DXW 


C  ***     USE  SINGLE  AND  BI -LINEAR  IfrTEPPOLATION  TO  EVALUATE 
C     &     PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GEN=SILIN(R(IP1,J  ,K),R(I,J  ,K  )  ,DXP1 ,DXI  )*Ul IP1 ,J  ,K) 
GES=SILIN(R(IP1,JM1,K  I  ,Rt I , JM1 ,K ) ,DXP1 ,DXI  >*UI IP1 , JM1 ,K ) 
GHN=SILINIR(IM1,J  ,K),RII,J  ,K  )  ,DXM1 ,DXI  )*U( I  ,J  ,K) 
GWS=SILIN(R(IM1,JM1,K),R(I,JM1,K),DXM1,DXI)*U(I   ,JM1,K) 


002*0100 
002*0200 
002*0300 
002*0*00 
002*0500 
002*0600 
002*0700 
002*0800 
00240900 
00241000 
00241100 
00241200 
00241300 
00241400 
00241500 
00241600 
00241700 
00241800 
002*1900 
00242000 
00242100 
00242200 
002*2300 
00242*00 
00242500 
0C242600 
00242700 
00242800 
00242900 
00243000 
00243100 
00243200 
00243300 
00243400 
00243500 
00243600 
002*3700 
00243800 
00243900 
002h40C0 
00244100 
00244200 
00244300 
00244*00 
002**500 
002**600 
002**700 
002**800 
002**900 
002*5000 
002*5100 
002*5200 
002*5300 
002*5*00 
002*5500 
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GN  =SILIN(R(I,JP1,K)>R1I>J  ,K  )  ,DYNN,DYN  >*V(  1  ,JP1,K  ) 
GP  =SILIN(R(I,JM1,K),R(I,J  ,K),DYS  ,DYNI*VII,J  ,K ) 
GS  =SILIN( Rl I ,  JM2 ,K  }  ,Rl I ,JM1 ,K  )  ,DYS3,DYS  )*V( I , JM1 ,K  ) 

GFN-SILIN(R(I>J  ,KP1),R(I,J  ,K ) ,DZP1 ,DZK  l*HI I ,  J  ,KP1 ) 
GFS=SILIN( R( I , JM1 ,KP1 ) ,R( I ,JM1,K )  ,DZP1 ,DZK  »*W(  I ,JM1 ,KP1 ) 
GBN=SILIN(R(I,J  ,KM1),R(I,J  ,K  )  ,DZM1 ,DZK t*H( I , J  ,K  ) 
GBS=SILIN(R(I,JM1,KM1),R(I,JM1,K)>DZM1,DZK)*WII,JM1>K   ) 

CN=0 . 5*<  GN+GP l*DZXN 
CS=0.5*(GP+GS)*DZXS 

CE=SILINIGEN,GES,DYN,DYS1*DYZE 
CW=SILINl GWN,GHS,DYN,DYS )*DYZW 

CF=SILIN(GFN,GFS,DYN,DYS)*DXYF 
CB=SILIN(GBN,GBS,DYN,DYS)*DXYB 

VISN=VIS(I,J   ,K) 
VISS=VIS(I,JM1,K) 

VISE=  (VIS(IP1,J   ,K)*VIS(I,J   ,K1+ 

8  VISIIP1,JM1,K)+VIS(I,JM1,K  I  )/4.0 

VISW=  (VIS(IM1,J   ,K)*VIS(I,J   ,K)+ 

8  VIS( IM1,JM1,K  )+VIS( I ,JM1 ,K  )  )/4.0 

visf=    (visii,j  ,kpi  )+v:sn,j  ,K)+ 

8  VIS(I,JMl,KPl)+VIS(I,JMl,Kn/4.0 

VISB=      (VIS(I,J   ,KM1)+VIS(I,J   ,K)+ 
8  VI5(I,JM1,KM1)+VISII,JM1,K)  t/<+.0 


VISN1=ZX0YN*VISN 
VISS1=ZX0YS*VISS 
VISE1=YZ0XE*VISE 
VISH1=YZ0XW*VISW 
VISF1=XY0ZF*VISF 
VISB1=XY0ZB*VISB 


CEP=( ABSICE  )  +  CE  )*DXPl*DXI/< DXE#< DXE+OXW  ) 1/8. 
CEM=( ABSICE  )-CE  >*DXPl*DXI/( DXE*( DXE +DXEE ) )/8. 
CWP  =  t ABSI CW t+CW  »*DXMl*DXI/< DXW*( DXH+DXKW  )  )/8. 
CWM=( ABSI  CW  l-CW  )*DXm*DXI/l  DXWM  DXW+DXE  )  )/&. 

CNP  =  <  ABS(  CN.HCN  >*DYN/DYJ/16  . 
CNM=< ABSI CN  l-CN  1*DYN/DYP1/16 . 
CSP=( ABSI CS )+CS )*DYS/DYM1/16 . 
CSM=l ABSI CS )-CS )*DYS/DY J/16 . 


CFP  =  1 ABS( CF  )+CF  )*DZPl*DZK/l DZF*( DZF+DZB  )  )/8. 
CFM  =  ( ABSI CF )-CF )*DZP1*DZK/1  DZF*l DZF  +  DZFF ) )/8. 
CBP  =  l ABSI CB  )+CB )*DZMl«DZK/( DZB*( DZB+DZBB ) )/8. 


00245600 
00245700 
00245800 
00245900 
00246000 
002^6100 
00246200 
00246300 
00246400 
00246500 
00246600 
00246700 
00246800 
00246900 
00247000 
00247100 
00247200 
00247300 
00247400 
00247500 
00247600 
C0247700 
00247800 
00247900 
00248000 
00248100 
00248200 
00248300 
00248400 
00248500 
00248600 
00248700 
00248800 
00248900 
00249000 
00249100 
00249200 
00249300 
00249<+00 
00249500 
00249600 
00249700 
00249800 
00249900 
00250000 
00250100 
00250200 
00250300 
00250400 
00250500 
00250600 
00250700 
00250800 
00250900 
00251000 
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CBM=IABSICBI-CB)*0ZM1*DZK/1DZB*(DZB+DZF  )  )/8. 


AE(I,J,K)=-.5*DXI/DXE*CE+CEP+CEM*(  l.+DXE/DXEE 1+CWM*DXW/DXE+VISE1 
AH(I,J,K>=  .5*0XI/DXW*CHtCWM+CHP*( 1 . +DXW/DXWW  )+CEP*DXE/DXW+VISWl 

ANII,J,K)=-.5*CN+CNP+CNM*(1.+DYN/DYNN I+CSM*DYS/DYN+VISN1 
AS( I ,J ,K  )=  .5*CS+CSM+CSP*l 1 . +DYS/DYSS )+CNP*DYN/DYS+VISSl 

AF(I,J,K)=-.5*DZK/DZF*CF+CFP+CFM*< l.+DZF/DZFF  )+CBM*DZB/DZF+VISFl 
ABl I,J,K  )=  .5*DZK/DZB*CB+CBMtCBP*l 1. +DZB/DZBB )+CFP*DZF/DZB*VISBl 


801  AEE=-CEM*DXE/DXEE 
AEER=AEE*VPD(IP2>J>K) 

802  CONTINUE 

803  AHW=-CWP*DXW/DXWW 
AWNR=AWH*VPD(IM2,J,K) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 

ANN=0. 

ANNR=0. 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 
ANNR=ANN*VPD( I , JP2 ,K  ) 

806  CONTINUE 

IF  (J.GT.3)  GOTO  807 

ASS=0. 

ASSR=0. 

GOTO  808 

807  A3S=-CSP*DYS/DYSS 
ASSR=ASS*VPD ( I , JM2 ,K  ) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 
AFF=0. 
AFFR=0. 
GOTO  810 
C09  AFF=-CFM*DZF/DZFF 

AFFR=AFF*VPD(I,J,KP2  ) 

810  CONTINUE 

IF  (K.GT.2)  GOTO  811 

ABB=0. 
ABeR=0. 
GOTO  812 

811  ABB=-CBP*DZB/DZBB 
ABBR=ABB*VPD< I , J ,KM2 ) 

812  CONTINUE 


00251100 
00251200 
00251300 
00251400 
00251500 
00251600 
00251700 
00251800 
00251810 
00251820 
00251830 
00251840 
00251900 
00252000 
00252100 
00252200 
00252300 
00252400 
00252500 
00252600 
00252700 
00252800 
00252900 
00253000 
00253100 
00253200 
00253300 
00253400 
00253500 
00253600 
00253700 
00253800 
00253900 
00254000 
00254100 
00254200 
00254300 
00254400 
00254500 
0025tb00 
00254700 
00254800 
00254900 
00255000 
00255100 
00255200 
00255300 
00255400 
00255500 
00255600 
00255700 
00255800 
00255900 
00256000 
00256100 
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C  ***   MODIFICATION  FOR  DECK    BOUNDARIES 

900  CONTINUE 

IF  (NOD(IM1,J,K).EQ.O)  GOTO  901 

AKW=0.0 

AWWR=0.0 

901  CONTINUE 

IF  <NOD(IP1,J,K).EQ.O)  GOTO  902 

AEE=0.0 

AEER=0.0 

902  CONTINUE 

IF  (NOD(I,JM2,K).EQ.O)  GOTO  903 

ASS=0.0 

ASSR=0.0 

903  CONTINUE 

IF  (NOD(I,JP1,K).EQ.O)  GOTO  904 

ANN =0.0 

ANNR=0.0 

904  CONTINUE 

IF  <NOD(I>J,KMl).EQ.O)  GOTO  905 

ABB=0.0 

ABBR=0.0 

905  CONTINUE 

IF  <N0DII,J,KP1).EQ.0)  GOTO  906 

AFF=0.0 

AFFR=0.0 

906  CONTINUE 

C  sss«^ssys?s^vSn3?S5;sr-s?;=-35;Sw3«s=s58S*s5**s;a««»»»i;?sits*«s« 


C  ***    SU  FROM  NORMAL  STRESS 

RN=(SIG22(I,J  ,K)-(V(I,JP1,K  )-V(I,J  ,K  )  )*VISN/DYN  l*DZXN 
RS=( SIG22I I , JM1,K )-( V( I ,J  ,K  }-V( I ,  JM1 ,K  )  )*VISS/DYS  )*DZXS 
RE=(SIG12(IP1,J,K  )-(V(IPl,J,K  i-VII.J  ,K  )  )*VISE/DXE  )*DYZE 
RW=(SIG12(I  ,J,K)-(V(I  ,J,K  l-V(IMl,J,K))*VISW/DXH)*DYZW 
RF=(SIG23(I,J,KP1)-(V(I,J,KP1  >-VU,J,K  )  )*VISF/DZF  )*DXYF 
RB=(SIG23(I,J,K   )-(V(I,J,K   )-Vl I , J ,KM1 J  )*VISB/DZB  1*DXYB 

C  ***        SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG12=0.S*<SIG12< IP1,J,K  )+SIG12( I ,J,K ) ) 
AVG23  =  0.5*( SIG231 1 ,J ,KP1  )+SIG23( I ,J,K ) ) 
AVG11=SILIN( SIG111 1 ,J,K  I  >SIG11( I ,JM1 ,K ) ,DYN,DYS ) 
AVG33=SILIN( SIG231 1 , J,K  )  ,SIG33l I ,JM1 ,K  J ,DYN,DYS ) 


00256200 
00256300 
00256400 
0025b500 
0025bb00 
00256700 
00256800 
00256900 
00257000 
00257100 
00257200 
00257300 
00257400 
00257500 
00257600 
00257700 
00257800 
00257900 
00258000 
00258100 
00258200 
00258300 
00258400 
00258500 
00253600 
00258700 
00258800 
00258900 
00259000 
00259100 
00259200 
00259300 
00259400 
00259500 
00259600 
00259700 
00259800 
00259900 
00260000 
00260100 
002b0200 
00260300 
00260400 
00260500 
00260600 
00260700 
00260800 
00260900 
00261000 
00261100 
00261200 
00261300 
00261400 
00261500 
00261600 
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AU2=VII,J,K) 

AU1=BILIN1U(IP1,J  ,K),U(I,J  ,K),DXI,DXI, 
*  U(IPl,JMl,K),Ull,JMl,K),UXl,DXI>    DYN,DYS) 

AU3=BILIN(W(I  ,J,KP1),H(I  , J >K J >DZK ,DZK, 
8  W(I,JM1,KP1),H(I,JM1,KJ,DZK,DZK,    DYN,DYS) 

AR=SILIN(R(I,J,K),RII,JM1,K),DYN,DYS) 

ARU12=AR*AU1*AU2 
ARU23=AR*AU2*AU3 
ARU11=AR*AU1*AU1 
ARU33=AR*AU3*AU3 

RRX  =  ( AVG12-ARU12  )*DZK*< DYE-DYH ) 
RRZ  =  ( AVG23-ARU23  l*DXI*< DYF-DYB  ) 
RRY  =  ( AVG11-ARU11 )*DZK*l DXN-DXS  )♦ 
8     (AVG33-ARU33)*DXI*IDZN-DZS) 


AP(  I ,  J  ,K  )=AE(  I  ,J  ,K  >+AW(  I ,  J  ,K  )+AN(  I ,  J  ,K  1+ASI I ,  J  ,K  ) 
8         +AF(I,J,K  l+AB(I,J,K)+AEE+AHW+ANN+ASS+AFF+ABB 
SP(  I ,J,K )  =  -(  ROD( I ,J ,K l*DYS+RCD( I ,JM1,K  )*DYN  )/( DYS+DYN  )*\'OLDT 
SU; I , J ,K  J=  ( ROD! I , J ,K  )*DYS*ROD( I , JM1,K  )*DYN  J/( DYS+DYN  )*VOLDT 
8  *VOD(I,J,K) 

SU( I ,J,K  )=SU( I , J ,K  HDZK*DXI*<  P( I , JM1 ,K  )-Pt I , J,K ) ) 

1  +AEER+AKNR+ANNR+ASSR+AFFR+ABBR 

2  +RE-RW+RN-RS+RF-RB+RRX+RRZ-RRY 

&    -BUOY*l (R(I,J,K)-REQ(I,J,K))*DYS+IR(I,JM1,K) 
8       -REQl I , JM1 ,K ) )*DYN )/( DYS+DYN  )#VOL*SIN( ZC( K  )  )*SIN( XC( I ) ) 
100  CONTINUE 


C  *** 

c 

c   *** 


TAKE  CARE  OF  B.C.  THRU  AN,AS,AE ,AW,AF ,AB ,SP  AND  SU 
RADIUS  DIRECTION 


DO  500  K=2,NK 
DO  S00  1=2 ,NI 
CC     SP(I,3>K)=SP<I,3,K)+AS(I>3,K) 

SUtI,3,K)=SU(I,3,K)+AS(I,3,K)*VU,2,K) 
AS(I,3,K)  =  0. 
ANf I,NJ,K J=0. 
500  CONTINUE 


C  *** 


CYLIC  CONDITIONS 


DO  502  K=2,NK 
DO  502  J=3,NJ 

SU(2  ,J,K)=SU(2  ,J,K)+AW(2  ,J,K)*V<1    ,J,K) 
SU( NI , J ,K  )=SUl NI , J ,K )+AE I NI , J ,K )*Vl  NIP1 , J,K ) 
AH( 2  ,J,K)=0.0 
AE(NI,J,K)=0.0 
502  CONTINUE 


00261700 
002bl800 
002e>1900 
00262000 
00262100 
002t>2200 
00262300 
00262400 
00262500 
00262600 
00262700 
00262800 
00262900 
00263000 
00263100 
00263200 
00263300 
00263400 
00263500 
00263600 
00263700 
00263800 
00203^00 
00264000 
00264100 
002b4200 
00264300 
00264400 
00264500 
00264600 
002&4700 
00264800 
00264900 
002o5000 
00265100 
00265200 
00265300 
00265400 
00265500 
00265600 
00265700 
00265800 
002o5900 
002o6000 
00266100 
00266200 
002oo300 
00266400 
00266500 
00266600 
00266700 
0026b800 
00266900 
00267000 
00267100 
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C  **■*    FRONT  AND  BACK  WALL 

DO  600  1=2, NI 
DO  600  J=3,NJ 
JM1=J-1 

C  ***         SLIP  WALLS 

SP<I,J,2)=SPII,J,2)*AB<I,J,2) 
SP(I,J,NK)=SP(I,J,NK)  +  AF(I,J,NK) 

AF(I,J,NK)=0. 
AB(I,J,2)=0. 
600  CONTINUE 


C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1,NCHIP 

I3=ICHPB(N> 

IE=IB+NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=J3+NCHPJ(N)-1 

JBN1=JB-1 

JEP1=JE+1 

KB=KCHPS(N) 

KE=KB+NCHPK(N)-1 

KBM1=KB-1 

KEP1=KE+1 

DO  102  J=JB,JE 
DO  102  K=KB,KE-1 

SP(IBM1,J,K)=SP(IBM1,J,K)-AE(IBM1,J,K) 
AEIIBM1,J,K)=0.0 

SP( IE  ,J,K  »=SP( IE ,J,K  )-AWI IE , J ,K ) 
AKIIE,J,K  t=0.0 

102  CONTINUE 

DO  103  I=IB,IE-1 
DO  103  K=KB,KE-1 
AN(I,JBM1,K  1  =  0.0 
ASII,JEP1,K)=0.0 

103  CONTINUE 

DO  106  I=IB,IE-1 

DO  106  J=JB,JE 

SP( I ,  J,KBM1  )=SP( I ,J,KBM1 )-AF( I ,J ,KBM1 ) 

AF(I,J,KBM1)=0.0 

SP(I,J,KE)=SP(I,J,KE)-AB(I,J,KE) 


00267200 
00267300 
00267400 
00267500 
00267600 
00267700 
00267800 
00267900 
00268000 
00268100 
00268200 
00268300 
00268400 
00268500 
00268600 
00268700 
00268800 
00268900 
00269000 
00269100 
00269200 
00269300 
0026^00 
00269500 
00269600 
0026^700 
00269300 
0026°900 
00270000 
00270100 
00270200 
00270300 
00270400 
00270500 
00270600 
00270700 
00270800 
00270900 
00271000 
00271100 
00271200 
00271300 
00271400 
00271500 
00271600 
00271700 
00271800 
00271900 
00272000 
00272100 
00272200 
00272300 
00272400 
00272500 
00272600 
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AB(I,J,KE  )  =  0.0 
106  CONTINUE 


C  ***  MODIFICATION  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB,IE-1 
DO  104  J=JB,JE 
DO  10*  K=KB,KE-1 
SP(I,J,K)=-1.0E20 
AW(I,J,K)=0. 
AE(I,J,K  )=0. 
AS(I,J,K )=0. 
AN!I,J,K)=0. 
SUII,J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


C  99?V9S99939t9**S9*9999*999*t9tt9tt9*9 S«SS* 

c 

C  ***  ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  K=2,NK 
DO  300  J=3,NJ 
DO  300  1=2, NI 
DXI=XLf I,J,K,2,0) 
D2K=ZL(I,J,K,2,0) 
DZX=DZK*DXI 

API  I, J, K  i=AP(I,J,KI-SP(I,J,K) 
DV( I , J,K  j  =  DZX/AP( I , J,K  ) 
300  CONTINUE 


C  ***   SOLVE  FOR  V 


CALL  TRIO  <2,3,2,NI,NJ,NK,V) 


DO  74  I=2,NIP1 
DO  74  J=2,NJP1 
VII, J, 1  )=V(I,J,2  ) 
V!I,J,NKP1)=VII,J,NK) 

74  CONTINUE 

DO  79  I=1,NIP1 
DO  79  K=1,NKP1 
V(I,2,K)=V(I,3,K) 

79  CONTINUE 


00272700 
00272800 
00272900 
00273000 
00273100 
00273200 
00273300 
00273400 
00273500 
00273500 
00273700 
00273800 
00273900 
00274000 
00274100 
00274200 
00274300 
00274*00 
00274500 
00274600 
00274700 
00274800 
00274900 
00275000 
00275100 
00275200 
00275300 
00275400 
00275500 
00275o00 
00275700 
00275800 
002759C0 
00276000 
00276100 
0027o200 
0027o300 
00276400 
00276500 
0027o600 
0027o700 
0027o800 
00276000 
00277000 
00277100 
00277200 
00277300 
00277400 
00277500 
00277600 
00277700 
00277800 
00277900 
00278000 
00278100 
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IF  (NCHIP.EQ.O)  GOTO  112 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 

DO  110  N=1,NCHIP 

IB=ICHPB(N) 

IE=IB+NCHPI(NI-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

KB=KCHPBIN) 

KE=KB+NCHPK(N)-1 

DO  108  I=IB,IE-1 

DO  108  J=JB,JE 

DO  108  K=KB,KE-1 

V(I,J,K)=0.0 
108  CONTINUE 
110  CONTINUE 
112  CONTINUE 


RETURN 
END 


********************************#******************-*******-**-**** 

SUBROUTINE  CALW 

*********-******************************************** *********** 

C0MN0N/R4/XCI  93  J ,YC(  93 ) ,2C( 93 ) ,XS( °3 ) ,YS( 93  )  ,ZS( 93  ) , 
S  DXXC(93),DYYC<  93),DZZC<  93  ),DXXS(  <>3),DYYS(  93),DZZS<93) 

COMtfON/BLl/DX,DY,DZ,VOl,DTIME,VOLDT,TKOT,TCOOL,PI,Q,QR 

C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKK1 
8   ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP 

C0MM0N/BL12/  NMRITE ,NTAPE >NTMAXO ,NTREAL , TIME ,SORSUN , ITER 

CONM0N/BL16/  C0NST1 ,C0NST2 ,C0NST3  ,CONSTh,CONSTo ,NT ,U0 ,H ,UGRT ,BUOY 
8   CPO  ,PRT ,COND0 , VISO ,RHOO ,HR ,TR ,TA,DTEMP ,TWRITE ,TTAPE ,TMAX,GC ,RAI 

COMNON/EL20/SIGll(22,16,32),SIG12l22,lo,32 ),SIG22I 22,16,32) 
8  ,SIG13(  22,16,32 ),SIG23( 22,16,32  ),SIG33( 22,16,32) 

COMMON/BL22/ICHPBI 10 ) ,NCHPI ( 10 ) , JCHPBI 10 ),NCHPJ( 10),KCHPB(  10), 
8  rJCHPK(10),TCHPHO),CPS(  10), CONS!  10),WFAN(10) 

C0^M0N/BL31/  TOO  I  22  ,16  ,32  )  ,ROD(  22  ,16  ,32  ),POD(  22,16,32) 
8   ,COD!  22,16,32 ),UOD( 22 ,lo ,32 ) ,VOD( 22 ,16 ,32  )  ,WODI 22 ,16 ,32 ) 

COKMON/EL32/  T( 22 ,16 ,32  )  ,RI 22 ,16 ,32  )  ,P( 22 , 16 ,32 ) 
8       ,C(22,16,32),U(22,16,32),V(22,16,32),W122,16,32) 

C0MM0N/BL33/  TPDt 22 ,16 ,32 > ,RPD(  22 ,lo ,32 ) ,PPD(  22 ,16,32 ) 
8        ,CPD( 22,16,32  ),UPD( 22,16,32  )  ,VPD( 22 ,16,32  )  ,WPDl 22 ,16,32 ) 

C0MM0N/BL3<+/  HEIGHT!  22  ,16  ,32  )  ,REQ(  22,16,32), 
8       SMP(22,16,32),SMPP(22,16,32),PPI22,16,32), 
8     DU( 22, 16,32 ),DV( 22, 16,32 ),DW( 22,16,32) 

COMMON/BL36/API 22 , 16 ,32 ) ,AE< 22 ,16 ,32 ) ,AW( 22 ,16 ,32  )  ,AN< 22 ,16 ,32 ) , 
8        AS122,16,32),AF(22,16,32),AB(22,16,32), 


00278200 
00278300 
00278^00 
00278500 
00278600 
00278700 
00278300 
00278900 
00279000 
00279100 
00279200 
0027O300 
00279<+00 
00279500 
00279600 
00279700 
002798C0 
00279900 
0028C000 
00280100 
00280200 
00280300 
00260HOO 
00280500 
00280600 
00280700 
00280800 
00280900 
00281000 
00281100 
00281200 
00281300 
00281<+00 
00281500 
00231600 
00261700 
00231800 
00281900 
,00282000 
R00282100 
C0282200 
00282300 
00282^00 
00282500 
00282600 
00282700 
00282800 
00282900 
00283000 
00283100 
00283200 
00283300 
00233400 
00283500 
00283600 
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8      SP( 22,16,32  ),SU( 22,16,32  ),RI I  22,16,32  ) 

C0MM0N/BL3  7/  VISI 22 ,16 ,32 ), CONDI  22,16,3  2  I ,NOD( 22 ,16,32 ) ,RWALL( 579 
&        ,CPN( 22, 16. -72  ),HS2«?;2),NHS2(22,lb,32),RESORM( 93) 


C  ***        CALCULATE  COEFFICIENTS 

DO  100  K=3,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I*1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.2)  IM2=NIM1 

IF  (I.EQ.NI)  IP2=3 


CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1,J,K,3,0) 
DXI  =XL1I  ,J,K,3,0) 
DXM1=XL<IM1,J,K,3,0) 

DYP1=YL(I,JP1,K,3,0) 
DYJ  =YL(I,J  ,K,3,0) 
DYM1=YL(I,JM1,K,3,0) 

DZP1=ZL(I,J,KP1,3,0) 
DZK  =ZL(I,J,K  ,3,0) 
DZM1=ZL(I,J,KM1,3,0) 

SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,3,2) 
DXS=XL(I,J  ,K,3,2) 
DXF=XL(I,J,KP1,3,3) 
DXB=XL(I,J,K   ,3,3) 

DYF=YL(I,J,KP1,3,3) 
DYB=YL(I,J,K  ,3,3) 
DYE=YL(IP1,J,K,3,1) 
DYW=YL(I   ,J,K,5,1) 

DZE=ZL(IP1,J,K,3,1) 
DZW=ZL(I  ,J,K,3,1) 
DZN=ZL(I,JP1,K,3,2) 


00283700 
100283800 
00283900 
00284000 
0028H100 
00284200 
00284300 
00284400 
00284500 
00284600 
00284700 
00284800 
0C284900 
00285000 
00285100 
00285200 
00285300 
00285400 
00285500 
00285600 
00285700 
00285800 
00265900 
00266000 
00286100 
00286200 
00286300 
00286400 
00286500 
00286600 
00286700 
00286800 
00236900 
00287000 
00287100 
00287200 
00287300 
00287400 
00287500 
00287o00 
00287700 
00287800 
00267°00 
00288000 
00283100 
00283200 
00268300 
00268400 
00288500 
00288o00 
00288700 
00288800 
00288900 
0028c>000 
00289100 
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DZS=ZL(I,J   ,K,3,2) 

C  ***    CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME 

DXEE=XL(IP2,J,K,3,1) 
DXE  =XLIIP1,J,K,3,1 ) 
DXW  =XL(I  ,J,K,3>1  ) 
DXKW=XL(IM1,J,K>3,1) 

DYNN=YL(I,JP2,K,3,2) 
DYN  =YL(I,JP1,K,3,2) 
DYS  =YL(I,J  ,K,3,2) 
DYSS=YL(I,JM1,K,3>2) 

DZFF=ZL(I,J,KP2,3,3) 
DZF  =ZLII,J,KP1,3,3) 
DZB  =ZL(I,J,K   ,3,3) 

DZBB=ZL(I,J,KM1,3,3) 

C  ***        DEFINE  THE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 


C  *** 
c    & 


USE  SINGLE  AND  BI -LINEAR  INTERPOLATION  TO  EVALUATE 
PHYSICAL  PROPERTIES  AND  FLUX  ON  THE  SURFACES. 


GN'F=SILIN(R(I,JP1,K  ),R(I,J,K  ) ,DYP1 ,DYJ  )*V< I , JP1 ,K  ) 
GN3=SILINt  R( I , JP1,KM1  )  ,R( I , J ,KM1  )  ,DYP1 ,DYJ  t»V( I , JP1 ,KM1  ) 
GSF=SILIN(R(I,JM1,K  ),R(I,J,K  ) ,DYM1 ,DYJ  )*V( I , J  ,K  ) 
GSB=SILIN( R( I , JM1 ,KM1 J ,R( I , J ,KM1 J ,DYM1 ,DYJ  )*V( I , J   ,KM1 ) 

GF  =SILIN(R(I,J,KP1),R(I,J,K  )  ,DZFF,DZF  )*W< I ,J,KP1 ) 
GP  =SILIN(R(I,J,KM1),R(I,J,K  I, DZB  ,DZF  )*W( I , J,K  ) 
GB  =SILIN( R( I ,J ,KM2  )  ,R( I , J,KM1 J ,DZBB ,DZB )*Wl I , J,KM1 J 

GEF=SILIN(R(IP1,J,K  ),R(I,J,K  ) ,DXP1 ,DXI  )*U( IP1 ,J,K  ) 
GEB=SILIN( R( IP1 , J ,KM1 )  ,RI I , J ,KM1 )  ,DXP1 ,DXI  l*U( IP1 , J,KM1 ) 
GWF=SILIN(R(IM1,J,K   J,RII,J,K   J ,DXM1 ,DXI  )*U< I   ,J,K   ) 


00289200 
00289300 
00289400 
00289500 
00289600 
00289700 
00289800 
00289900 
00290000 
00290100 
00290200 
00290300 
00290400 
00290500 
00290600 
00290700 
00290800 
00290900 
00291000 
00291100 
00291200 
00291300 
00291400 
00291500 
002°1600 
00291700 
00291800 
00291900 
00292000 
00292100 
00292200 
00292300 
00292400 
00292500 
00292600 
00292700 
002O2800 
00292900 
00293000 
00293100 
00293200 
00293300 
00293400 
00292500 
00293o00 
00293700 
00293800 
00293900 
00294000 
00294100 
00294200 
00294300 
00294400 
00294500 
00294600 
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GWB=SILINl R( IM1 ,  J.KM1 ) ,R( I ,  J ,KM1 ) ,DXM1 ,DXI  )*U( I   , J  ,KM1  ) 

CF=0.5*(GF+GP l*DXYF 
CB=0.5*(GP*G3)*DXYB 

CN=SIUNI GNF ,GNB,DZF ,DZB )*DZXN 
CS=SILIN(GSF,GSB,DZF,DZB)*DZXS 

CE=SILIN(GEF,GEB,DZF,DZB)*DYZE 
CH=SILIN( GHF ,GW3,DZF ,DZB  )*DYZW 

VISF=VIS(I,J,K   ) 
VISB=VIS(I,J,KM1) 

VISN=  (VIS(I,JP1,K   )+VIS(I,J,K   )♦ 

5  VIS(  I ,  JP1  ,KM1 1+VISl  I  ,  J  ,KM1  ))/<♦.  0 

VISS=  <VIS(I,JM1,K   )+VIS(I,J,K   )♦ 

i.  VIS(I,JMl,K.Ml)+VIS<I,J,KMl))Af.O 

VISE=  (VIS(IP1,J,K   )+VIS(I,J,K   )♦ 

5  VIS(IPl,J,KMl)+VIS(I,J,KMl))/4.0 

VISW=  (VIS(IM1,J,K   )+VIS(I,J,K   )♦ 

I  VISl  IMi  ,  J  ,KM1  )+VIS(  I ,  J  ,KM1  ))/<♦.  0 


VISN1=ZX0YN*VISN 
VISS1=ZX0YS*VISS 
VISE1=YZ0XE*VISE 
VISN1=YZ0XW*VISW 
VIS':1=XYCZF*VISF 
VISS1=XY0ZB*VISB 


CEP=(ABS(CE  l+CE  l*DXPl*DXI/( DXE*1 DXE+DXW  )  )/8. 
CEM=! ABSICE )-CE l*DXPl*DXI/( DXE*( DXE +DXEE ) )/8. 
CHP  =  i AB3( CW )+CH )*DXMl*DXI/<  DXH*( DXW+DXWW ) )/&. 
CWM  =  l ABS( CK  )-CW )*DXNl*DXI/< BXW*l DXW+DXE  ) )/8. 

CHP  =  l  ABSl  CN  )+CN  l*DYPl*DYJ/<  DYN*<  DYN+DYS  )  )/8. 
CNM=l ABSICN  I-CN)*DYP1*DYJ/(DYN*( DYN+DYNN)  )/8. 
CSP=I ABSl  CS l+CS l*DYMl*DYJ/l  DYS*(  DYS+DYS5 ) )/8. 
CSH=( ABSl CS  J-CS  l*DYMl*DYJ/( DYS*( DYS+DYN  )  )/8. 


CFP  =  f AESICF  )+CF)*DZF/DZK/16. 
CFM  =  (ABStCF)-CF  )*DZF/DZP1/16 . 
CBP  =  ( ABS! CB  )+CB  )*DZB/DZM1/16 . 
CBM  =  l ABSl CB  t-CB  )*DZB/DZK/16 . 

AE(I,J,K1=-.5*DXI/DXE*CE+CEP+CEM*(  l.+OXE/DXEE  )+CWM*DXH/DXE+VISEl 
AH( I ,J  ,K  )=  .5*DXI/DXW*CW+CWM+CKP*< 1. +DXW/DXWH  )+CEP*DXE/DXW+VISHl 
AN(I,J,K )=-.5*DYJ/DYN*CN+CNP+CNM*<  1 . +DYN/DYNN  >*CSM*DYS/DYN+VISN1 
AS(I,J,K)=  .5*DYJ/DYS*CS*CSM+CSP*ll.+DYS/DYSSt+CNP*DYN/DYS+VISSl 

AF(I,J,K)=-.5*CF+CFP+CFM*(1.+DZF/DZFF)*CBM*DZB/DZF+VISF1 


0029^700 
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0029<+90C 
00295000 
002*5100 
002*5200 
00295300 
00295400 
00295500 
00295600 
00295700 
00295800 
00295900 
00296000 
00296100 
00296200 
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00296400 
00296500 
00296600 
00296700 
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00296900 
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00297300 
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00297500 
00297600 
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00298000 
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0029S400 
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00300100 
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AB( I , J ,K  1=    .5*CB+CBM*CBP*( 1. +DZB/DZBB )*CFP*DZF/DZB+VISD1 


801  AEE=-CEM*DXE/DXEE 
AEER=AEE*WPD(IP2,J,K) 

802  CONTINUE 

303  AWW=-CWP*DXW/DXWW 

ANWR=AWW*KPDt IM2 , J ,K ) 

804  CONTINUE 

IF  (J.LT.NJ)  GOTO  805 

ANN=0. 

ANNR=0. 

GOTO  806 

805  ANN=-CNM*DYN/DYNN 
ANNR=ANN*WPDl I , JP2 ,K ) 

806  CONTINUE 

IF  (J.GT.2)  GOTO  807 

ASS=0. 

ASSR=0. 

GOTO  808 

807  ASS=-CSP*DYS/DYSS 
ASSR=ASS*WPD< I , JM2 ,K ) 

808  CONTINUE 

IF  (K.LT.NK)  GOTO  809 

AFF=0. 

AFFR=0. 

GOTO  810 

809  AFF=-CFM*DZF/DZFF 
AFFR=AFF*WPD(I,J,KP2) 

810  CONTINUE 

IF  (K.GT.3  )  GOTO  811 

A3B=0. 

ABSR=0. 

GOTO  812 

811  ABB=-CBP*DZB/DZBB 
AB3R=AB3*WPDl I , J ,KM2 ) 

312  CONTINUE 


C  ***   MODIFICATION. FOR  DECK     BOUNDARIES 

900  CONTINUE 

IF  (N0D(IM1,J,K).EQ.0)  GOTO  901 

ANN =0.0 

AWWR=0.0 

901  CONTINUE 

IF  (NOD(IP1,J,K).EQ.O)  GOTO  902 


00300110 
00300120 
00300200 
00300300 
00300400 
00300500 
00300600 
00300700 
00300800 
00300900 
00301000 
00301100 
00301200 
00301300 
00301400 
00301500 
00301600 
00301700 
00301800 
00301900 
00302000 
00302100 
00302200 
00302300 
00302400 
00302500 
00302600 
00302700 
00302800 
00302900 
00303000 
00303100 
003C3200 
00303300 
00303400 
00303500 
00303600 
00303700 
00303800 
00303900 
00304000 
00304100 
0030h200 
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00304800 
00304900 
00305000 
00305100 
0C305200 
00305300 
00305400 
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AEE=0.0 
AEER=0.0 

902  CONTINUE 

IF  INODII,JM1,K).EQ.O)  GOTO  903 

ASS=0.0 

ASSR=0.0 

903  CONTINUE 

IF  (NOD(I,JP1,K).EQ.O)  GOTO  904 

ANN=0.0 

ANNR=0.0 

904  CONTINUE 

IF  (N0D(I,J,KM2KEQ.0)  GOTO  905 

ABB=0.0 

ABBR=0.0 

905  CONTINUE 

IF  (NCD(I,J,KP1).EQ.0)  GOTO  906 

AFF=0.0 

AFFR=0.0 

906  CONTINUE 

C  SZZZ9»9tttZ9tZ9t99t9Zt9XtZt991ttttt;999*9t9XSt9ZZ»999 


C  ***    SU  FROM  NORMAL  STRESS 

RF  =  (SIG33(I,J,K  )-<N(I,J,KPl)-W(I,J,K  )  )*VISF/DZF  )*DXYF 
RB  =  f  SIG331 1 , J ,KM1  l-( WI I , J ,K  )-WI I , J,KM1 )  )*VISB/DZB  )*DXYB 
RN=(SIG23(I,JP1,K  )-(h(I,JPl,K)-W(I,J  ,K)  )*VISN/DYN  i*DZXN 
RS=(SIG23(I,J  ,K)-(W(I,J  ,K)-W(I,JM1,K) )*VISS/DYS)*DZXS 
RE  =  IS:GI3(IPI,J,KJ-1W(IP1,J,K)-W(I  ,J,K)  )*VISE/DXE  )*DYZE 
RH=ISIG13(I   ,J,K)-(W(I   ,J,K)-K(IM1,J,K)  )*VISH/DXW)*DYZW 

C  ***        SU  FROM  CURVED  STRESSES  AND  ACCELERATIONS 

AVG23=0.5*(SIG23( I ,JP1,K )+SIG23( I  ,J,K  )  ) 
AV313=0.5*tSIG13(IPl,J,K  I+SIG131 1 , J ,K ) ) 
AVG22=SILIN1 SIG22I I ,J,K  )  ,SIG22< I ,J,KM1 )  ,DZF ,DZB  ) 
AVS11=SILIN( SIGIll I , J ,K ) ,SIG11( I , J ,KMi  )  ,DZF ,DZB ) 

AU3=W(I,J,K) 

AU2=BILINIV(I,JP1,K  ),V(I,J,K  ),DYJ,DYJ, 
8  V(J,JP1,KM1),V!I,J,KM1),DYJ,DYJ,  DZF,DZB) 

AU1=BILIN(UHP1,J,K  ),U(I,J,K  ),DXI,DXI, 
2  U!IP1,J,KM1),U(I,J,KM1),DXI,DXI,  DZF,DZB) 

AR=SILIN(R(I,J,K),R(I,J,KM1),DZF,DZBJ 

ARU23=AR*AU2*AU3 
ARU13=AR*AU1*AU3 
ARU22=AR*AU2*AU2 


0030S500 
00305600 
00305700 
00305800 
00305900 
00306000 
00306100 
00306200 
00306300 
00306400 
00306500 
00306600 
00306700 
00306800 
00306900 
00307000 
00307100 
00307200 
00307300 
00307400 
00307500 
00307600 
00307700 
00307800 
00307900 
00308000 
00308100 
00308200 
00308300 
00308400 
00308500 
00308600 
00303700 
00308800 
00303900 
00309000 
00309100 
00309200 
0030°300 
00309400 
O03095C0 
00309t,00 
00309700 
00309300 
00309900 
00310000 
00310100 
00310200 
00310300 
00310400 
00310500 
00310600 
0031C700 
00310800 
00310900 
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100 


ARU11=AR*AU1*AU1 

RRY=( AVG23-ARU23  )*DXI«l DZN-DZS ) 
RRX=< AVG13-ARU13  l*DYJ*l DZE-DZH ) 
RRZ=I AVS22-ARU22  )*DXI*(  DYF-DYB  >♦ 
I         (AVG11-ARU11  l*DYJ*(DXF-DXB) 


AP( I , J,K  )=AE< I , J ,K  )*AH< I ,J ,K  )+AN< I ,  J ,K  )*AS< I , J ,K  ) 

5  +AF(I,J,K)+AB(I,J,K  >*AEE+AWW+ANN+ASS+AFF*ABB 
SP(I,J,K  )=-<ROD(I,J,K)*DZB+RODlI,J,KMl  )*DZF }/( DZB+DZF  )*VOLDT 
SU(I,J,K)=    IR0D(I,J,K >*DZB+R0D(I,J,KM1)*DZF)/IDZB+DZF  >*VOLDT 

8  *WOD(I,J,K) 

SU(I,J,K)=SU(I,J,K  I+DXI*DYJ*(P(I,J,KM1  )-P(I,J,K)) 

6  ♦AEER+AWWR+ANNR+ASSRtAFFR+ABBR 
&  +RE-RW+RN-RS+RF-RB+RRY+RRX-RRZ 

S  -BUOY*< (R(I,J,K)-REQ<I,J,K) )*DZB*COS( ZC( K ) )+(R(I,J, 
8   KH1  l-REQt I , J ,KM1 )  )*DZF*COS( ZCt  KM1 J ) )/l DZB+DZF  )*VOL*SINl XC( I ) ) 
CONTINUE 

TAKE  CARE  OF  B.C.  THRU  AN,AS,AE ,AH,AP  AND  SU 


C  *** 

C 

C  ***     RADIUS  DIRECTION 

DO  500  K=3,NK 
DO  500  1=2, NI 
KM1=K-1 
CC    SP(I,2,K)=SP(I,2,K)*AS(I,2,K) 
SP(I,2,K)=SP(I,2,K>-AS(I,2,K) 
SU(I,2,K)=SU(I,2,K)+2.0*W(I,1,K  )*AS(I,2,K) 
SP<I,NJ,K  l=SP(I,NJ,K)-AN(I,NJ,K) 
AS(I,2,K)=0. 
AN(I,NJ,K)=0. 
500   CONTINUE 

C  ***   CYLIC  CONDITIONS 

DO  502  K=3,NK 

DO  502  J=2,NJ 

SU(  2  ,J,K)=SU<2  ,J,K)  +  AW(2  ,J,K)*W(1    ,J,K) 

SU(NI,J,K  t=SU(NI,J,K)+AElNI,J,K)*W(NIPl,J,K) 

AK12  ,J,K  1  =  0.0 

AF.lNI,J,K)=0.0 

CONTINUE 


502 


C  **■* 


FRONT  AND  BACK  HALL 
DO  600  1=2, NI 
DO  600  J=2,NJ 

SP(I,J,NK)=SP(I,J,NK)+AF(I,J,NK) 
SPII,J,3  )=SP(I,J,3  )+AB(I,J,3  ) 
AF(I,J,NK)=0. 
AB(I,J,3)=0. 
600  CONTINUE 


00311000 
00311100 
00311200 
00311300 
00311400 
00311500 
00311600 
00311700 
00311800 
00311900 
00312000 
00312100 
00312200 
00312300 
00312400 
00312500 
00312600 
00312700 
00312800 
00312900 
00313000 
00313100 
00313200 
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00313400 
00313500 
00313600 
00313700 
00313800 
00313900 
00314000 
00314100 
00314200 
00314300 
00314400 
00314500 
00314600 
00314700 
00314800 
00314900 
00315000 
00315100 
00315200 
00315300 
00315400 
00315500 
00315600 
00315700 
00315800 
00315900 
00316000 
00316100 
00316200 
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IF  tNCHIP.Eq.O)  GOTO  105 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1,NCHIP 

IB=ICHPBIN) 

IE=IB+NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N1 

JE=JB+NCHPJ(N)-1 

JBM1=J3-1 

JEP1=JE*1 

KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 

KBN1=KB-1 

KEP1=KE*1 


DO  102  J=JB,JE-1 

DO  102  K=KB,KE 

SP! IBM1,J,K  )=SPt IBM1,J,K )-AE ( IBM1 , J ,K  » 

SU(IBM1,J,K  )=SUIIBM1,J,K  )+AE ( IBMI , J ,K )*WFAN( N 1*2 . 0 

AE«IB«1,J,K)=0.0 


SP(IE,J,K  )=SP(IE,J,K  >-AW(IE,J,K) 

SU(IE>J,K)=SU(IE,J,K)+AM(IE,J,K)*WFAN(N)*2.0 

AWIIE>J,K)=0.0 

102  CONTINUE 

DO  103  I=IB,IE-1 

DO  103  K=KB>KE 

SP(I,JBM1,K  )=SP(I,JBM1,K  )-AN( I , JBM1 ,K  ) 

SUl  I,JBM1,K )=SU(I,JBM1,K  )+ANl I , JBM1 ,K  )*NFAN( N  )*2 . 0 

ANC,JBM1,K)=0.0 

SP(I,JE,K  )=SP(I,JE,K  )-AS(I,JE,K  ) 
SLMI,JE,K  )=SU(I,JE,KJ+A51I,JE,K  l*WFANf N  )*2.0 
AS(I,JE,K)=0.0 
1CZ  CONTINUE 

DO  106  I=IB,IE-1 
DO  10b  J=J5,JE-1 

SU(I,J,KBM1  I=SU(I,J,KBM1  t+AFl I , J ,KBM1 l*WFAN(N) 
SU(I,J,KEP1 )=SU(I,J,KEP1)+AB(I,J,KEP1)*WFAN(N) 
AF(I,J,KBM1)=0.0 
AB(I,J,KEP1)=0.0 
106  CONTINUE 

C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 


C0316EC0 
00316600 
00316700 
00316300 
00316900 
00317000 
00317100 
00317200 
00317300 
00317^00 
00317500 
00317600 
00317700 
00317800 
00317900 
00318000 
00318100 
00318200 
00318300 
00318400 
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00320900 
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00321100 
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DO  104  I=IB,IE-1 

DO  104  J=JB,JE-1 

DO  10"+  K=KB,KE 

SPII,J,K>=-1.0E2 

AW(I,J,K  1=0. 

AE(I,J,K)=0. 

AS( I,J,K  1  =  0. 

AN(I,J,K)=0. 

AB(I,J,K.)  =  0. 

AF(I,J,K  )  =  0. 

SU(I,J,K  )  =  1.0E2  *  WFAN(N) 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 

C  ftttttft*««3?«ttftft«««#*8«tfffft*«ftft««*?ftt«***t 


c  *** 


ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 


DO  301  K=3,NK 
DO  301  J=2,NJ 
DO  301  1=2, NI 

dxi=xl(i,j,k,3,0) 
dyj=yl(i,j,k,3,0) 
dxy=dxi*dyj 

ap:i,j,k)=ap<i,j,k)-sp<i,j,k) 
dm(i,j,k)=dxy/ap(i,j,k) 
301  continue 


C  ***   SOLVE  FOR  W 


CALL  TRID   (2,2,3,NI,NJ,NK,H) 


DO  76  1=1, NI 
DO  76  J=1,NJ 
W:i,J,2>=W(I,J,3) 
W(I,J,NKP1)=W(I,J,NK) 
76  CONTINUE 


IF  (NCHIP.EQ.O)  GOTO  112 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  THE  DECKS 

DO  110  N=1,NCHIP 

IB=ICHPB(N) 

IE=IB+NCHPKN)-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 


00321300 
00321400 
00321500 
00321600 
00321700 
00321800 
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00322000 


00322100 
00322200 
00322300 
00322400 
00322500 
00322600 
00322700 
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00323000 
00323100 
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00323300 
00323400 
00323500 
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00323700 
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00323900 
00324000 
00324100 
00324200 
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00324600 
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00324800 
00324900 
00325000 
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KE  = 


KCHPB(N) 
KB+NChPK(N)- 


DO    108    I=IB,IE-1 
DO    10S   J=JB,JE-1 
DO    103   K=K3,KE 
W(I,J,K  >=WFANIN) 

103   CONTINUE 

110   CONTINUE 

112   CONTINUE 

RETURN 

END 


0032-3600 
00326700 
0032o791 
00326800 
00326900 
00327000 
00327100 
00327200 
00327300 
00327400 
00327500 
00327600 
00327700 
00327800 
00327900 
00328000 
00328100 
00328200 
00328300 
00328400 
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00328900 


WW  R  WWW  WW  WW  W  WW  WWW  RMMRRXItRltftMRNRRHRRRKRR 

SUBROUTINE    CALP 

w^^^^  w^  w  ^  w  ww  w  *  .*.  ww  a^^kwf.waww  r.  *  w  w.wwwwwrw  w  w  w  *  w  rbwwwkkhw  wwinmrTTinrK 

C0MM0N/R4/XC  (  93  ) , YC (  93  )  ,ZC  I  93  )  ,XS(  93  ) , YS<  93  )  ,ZS(  93  ) , 

8  DXXCI 93  t,DYYC(93),DZZC( 93 ),DXXS( 93 ) ,DYYS< 93 ) ,DZZS( 93 ) 

COMMON/BL1/DX,DY,DZ,VOL,DTIME,VOLDT,TH0T,TCOOl,PI,Q,QR 
C0MN0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

8       ,NIP2,NJP2,NKP2,NA,NAP1,NAH1,N3,N3P1,NBM1,KRUN,NCHIP,NJRA,NWRP 
C0MM0N/BL12/   NWRITE, NTAPE .NTMAX0 ,NTREAL , TIME ,S0RSUM, ITER 
COMMON/BLle/   CONSTl,CONST2,CONST3,CONST4,CONST6,NT,U0,H,UGRT,BUOY,0032°000 

8      CPO,PRT,CONDO,VIS0,RHC0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR003 29100 

COMNON/BL22/ICHPBilO),NCHPI(10),JCHPB< 10),NCHPJ( 10),KCHPB1 10),  00329200 

8                               NCHPK(10),TCHP(10),CPS< 10),CONS( 10)>HFAN1 10)  00329300 

C0MM0N/BL31/   T0D( 22 , lo ,32  )  ,R0D( 22 ,16 ,32 ) ,P0D< 22 ,16 ,32 )  00329h00 

8       ,COD(22,lto,32),UOD122,16,32),VOD(22,16,32),KOD(22,l6,32)  0032°500 

CONMON/3L32/   Tl  22 ,16 ,32 ) ,R(  22 ,16 ,32 ) ,P(  22,16 ,32 )  00329600 

S                   ,C( 22, 16,32), U( 22,16,32 t,V(22, 16,32), HI22, 16, 32)  00329700 

COMMON/BL33/   TPD(  22 ,1b ,32 ) ,RPDI  22 ,lo ,32 ) ,PPDI 22 ,16,32 )  00329800 

8                   ,CPD(22,lo,3  2 J,UPD( 22  ,16 ,32 ) ,VPD< 22 ,16 ,32  J ,WPD( 22 ,16 ,32 )  00329900 

CCNM0N/BL34/    HEIGHT! 22 , 16 ,32  )  ,REQ( 22 , 16 ,32 ) ,  00330000 

8                  SMO(22,16,32),SMPP(22,16,32),PP(22,16,32),  00330100 

8              DU( 22,lo,32),DV( 22 ,16 ,32 ) ,DN( 22 ,16 ,32  )  00330200 

C0MM0f4/3L36/AP<22,16,32 J,AE(22,16,32),AW(22,16,32),AN122,16,32),  00330300 

8                     ASI22, lo, 32), AFI22, 16, 32), AB(  22,16,32),  O0Z30H00 

8              SPl  22,16,32  ),SU(  22, lo, 32  I, RK22, 16,32  )  00330500 

COMMON/BL3  7/   VISl 22,lo,32  I , CONDI  22 , 16 ,32 ) ,N0D( 22 ,16 ,32  1  ,RWALL( 579  )00I 30600 

8                   ,CPM(  22,lt>,32),KSZ(3,2),NHSZ(  22  ,16  ,32  )  ,RES0RMl  93)  00330700 

00330800 

C    ***           CALCULATE    COEFFICIENTS  00330900 

00331000 

DO    100   K=2,NK  00331100 

KP2=K+2              '  00331200 

KP1=K+1  C0331300 

KM1=K-1  00331400 

KM2=K-2  00331500 

DO    100   J=2,NJ  00331600 

JP2=J*2  00331700 

JP1=J+1  00331800 

JM1=J-1  00331900 
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JM2=J-2 

DO  100  1=2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF  (I.EQ.NI)  IP1  =  2 


C       CENTRAL  LENGTH  OF  THE  SCALE  CONTROL  VOLUME 

DXP1=XL(IP1,J,K,0,0) 
DXI  =XL(I  ,J,K,0,0) 
DXM1=XL(IM1,J,K,0,0) 

DYP1=YL(I,JP1,K,0,0) 
DYJ  =YL(1,J  ,K,0,0) 
DYM1=YL(I,JM1,K,0,0) 

DZP1=ZL(I,J,KP1,0,0) 
DZK  =ZL(I,J,K  ,0,0 ) 
DZM1=ZL(I,J,KM1,0,0) 

C  ***    SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,0,2) 
DXS=XL(I,J  ,K,0,2> 
DXF=XL(I,J,KP1,0,3) 
DXB=XHI,J,K   ,0,3) 

DYF=YL(I,J,KP1,0,3) 
DYB=YLU,J,K  ,0,3) 
DYE=YL(IP1,J,K,0,1) 
DYW=YL(I   ,J,K,0,1) 

DZE=ZL(IP1,J,K,0,1 ) 

DZW=ZL(I  ,J,K,0,1) 
DZN=ZL(I,JP1,K,0,2) 
DZS=ZL(I,J   ,K,0,2) 


C  **«    DEFINE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZK=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 

RN=( R( I , J ,K  )*DYP1+R< I ,JP1 ,K  )*DYJ  )/( DYP1+DYJ  ) 
RS=l R( I , J,K )*DYM1+R< I , JM1,K  )*DYJ )/( DYM1+DYJ ) 


00332000 
00332100 
00332200 
00332300 
00332400 
O0332S0O 
00332600 
00332700 
00332800 
00332900 
00333000 
00333100 
00333200 
00333300 
00333400 
00333500 
00333600 
00333700 
00333800 
00333900 
00334000 
00334100 
00334200 
00334300 
00334400 
00334500 
00334600 
00334700 
00334800 
00334900 
00335000 
00335100 
00335200 
00335300 
00335400 
00335500 
00335600 
00335700 
00335800 
003359C0 
0033o000 
00236100 
00336200 
0023o300 
0C336400 
0C336500 
00336600 
00336700 
00336800 
00336900 
00337000 
00337100 
00337200 
00337300 
00337400 
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RE  =  I Rl I ,J,K 1*DXP1+R(IP1,J,K 1*0X1 l/IDXPl+DXI  ) 
RH  =  ( R( I,J,K I*DXM1+R(IM1,J,K  >*DXI )/(DXMl+DXI  ) 
RF  =  ( R( I ,J,K  I*DZP1+R( I ,J,KP1 )*DZK  )/( DZP1+DZK  ) 
RB=t Rl I , J,K )*DZM1*RI I , J ,KM1  )*DZK )/( DZM1+DZK  I 

C  ***    DU  ON  VERTICAL  WALLS  AND  DV  ON  HORIZENTAL  WALLS  ARE  ZERO 

AN( I , J ,K  1=RN*DZXN*DV( I , JP1 ,K  ) 
AS(  I , J ,K >=RS*DZXS*DV( I ,  J  ,K  ) 
AE(I,J,K  >=RE*DYZE*DU!IP1,J,K) 
AW(  I , J ,K )=RW*DYZW*DU( I ,  J  ,K  ) 
AF( I ,J ,K >=RF*DXYF*DNt I , J ,KP1 ) 
ABt I , J,K  )=RB*DXYB*DWl I ,J,K  J 

CN=RN*Vt I , JP1 ,K  l*DZXN 
CS=RS*VlI,J  ,K)*DZXS 
CE=RE*U< IP1 ,J ,K  )*DYZE 
CW=RW*U(I  ,J,K)*DYZW 
CF=RF*W( I,J,KP1  )*DXYF 
CB=RB*W(I,J,K   )*DXYB 

SMP( I , J ,K  i=-( R< I ,J,K  )-ROD( I >J,K )  )*VOL/DTIME-CE+CW-CN+CS-CF+CB 
C     SMP(I,J,K  i=-CE+CW-CN+CS-CF+CB 
SU(I,J,KI=SMP(I,J,KJ 
SP(I.J,K)=0. 
100  CONTINUE 

C  ***  TAKE  CARE  OF  B.C.  THRU  AN,AS,AE ,AW,AF ,AB,SP  AND  SU 

C 

C  ***     RADIUS  DIRECTION 

DO  500  K=2,NK 

DO  500  1=2, NI 
ASII,2,K  1  =  0. 
AMI,NJ,K)=0. 

5co  continue 

C  ***    LEFT  WALL  AND  RIGHT  WALL 

DO  501  K=2,NK 

DO  501  J=2,NJ 
C     AW(2,J,K'=0. 
C      AE(NI,J,K)=0. 
501  CONTINUE 

C  ***      FRONT  AND  BACK  WALL 

DO  502  I=2,NI 
DO  502  J=2,NJ 
AB(I>J>2 1=0.0 
AF(I,J,NK)=0.0 

502  CONTIHUE 


00337500 
00357600 
00337700 
00337800 
00337900 
00336C00 
00338100 
00338200 
00338300 
00338-400 
00338500 
00338600 
00338700 
00338800 
00338900 
00339000 
00339100 
00339200 
00339300 
00339400 
00339500 
00339600 
00339700 
00339800 
00339900 
00340000 
00340100 
00340200 
00340300 
00340400 
00340500 
00340600 
00340700 
00340800 
00340900 
00341000 
00341100 
00341200 
00341300 
00341400 
00341500 
003h1o00 
00341700 
C0341800 
00341°00 
005h2000 
00342100 
00342200 
00342300 
00342400 
00342500 
00342600 
00342700 
00342800 
00342900 
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IF  (NCHIP.EQ.O)  GOTO  105 

C  999*tStS99999**1t9**1*1tttt*1!S9tt*t91!t9tt*tt91lt9999Z1t1*t99*9*99 

C  ***  MODIFICATION  FOR  DECK  BOUNDARIES 

DO  101  N=1,NCHIP 

IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

IBH1=IB-1 

IEP1=IE*1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

JBM1=JB-1 

JEP1=JE+1 

KB=KCHPB!N) 

KE=KB+NCHPK(N)-1 

KBM1=KB-1 

KEP1=KE+1 

DO  102  J=J3,JE-1 
DO  102  K=KB,KE-1 
AE(IBM1,J,K)=0.0 
AW(IE,J,K)=0.0 

102  CONTINUE 

DO  103  I=IB,IE-1 
DO  103  K=KB,KE-1 
AN(I,JBM1,K)=0.0 
AS(I,JE,K)=0.0 

103  CONTINUE 

DO  106  I=IB,IE-1 
DO  106  J=JB,JE-1 
AF(I,J,KBM1 t=0.0 
AB(I,J,KE 1=0.0 
106  CONTINUE 

C  ***  FOR  THE  CELLS  INSIDE  OF  THE  DECKS 

DO  104  I=IB,IE-1 
DO  104  J=JB,JE-1 
DO  104  K=KB,KE-1 
SP(I,J,K)=-1.0E20 
AH(I,J,K)=0. 
AEII>J,K)=0.  ' 
AS(I,J,K)=0. 
AN(I,J,K 1=0. 
SU(I,J,K)=0. 

104  CONTINUE 
101  CONTINUE 

105  CONTINUE 


00343000 
00343100 
00343200 
00343300 
00343400 
00343500 
00343600 
00343700 
00343800 
00343900 
00344000 
00344100 
00344200 
00344300 
00344400 
00344500 
00344600 
00344700 
00344800 
00344900 
00345000 
00345100 
00345200 
00345300 
00345400 
00345500 
00345600 
00345700 
00345800 
00345900 
00346000 
00346100 
00346200 
00346300 
00346400 
00346500 
00346600 
00346700 
00346800 
00346900 
00347000 
00347100 
00347200 
00347300 
00347400 
00347500 
00347600 
00347700 
00347800 
00347900 
00348000 
00348100 
00348200 
00348300 
00348400 
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C  *t***9***-**9*9tttttttt9tt9999Stt1tV99t91l ****** 


C  ***    ASSEMBLE  COEFFICIENTS  AND  SOLVE  DIFFERENCE  EQUATIONS 

DO  300  J=2,NJ 
DO  300  1=2, NI 
DO  300  K=2,NK 

AP(I,J,K)=AN(I,J,K)+AS(I,J,K)*AE(I,J,K)*AW(I,J,K)-SP(I,J,K) 
&     ♦AF(I,J,K)+ABII,J,K) 
300  CONTINUE 

C  ***    SOLUTION  OF  FINITE  DIFFERENCE  EQUATION 

CALL  TRID   (2,2,2,NI,NJ,NK,PP) 

C  ***  THIS  IS  FOR  CKECKING 


949 


161 


948 


160 


958 


170 


968 


180 


978 


190 


DO  161  I 
WRITE  (6 
FORMAT  ( 
WRITE  (6 
WRITE  (6 
CONTINUE 
DO  160  I 
WRITE  (6 
FORMAT  ( 
WRITE  <6 
WRITE  ( o 
CONTINUE 
DO  170  I 
WRITE  (6 
FORMAT  ( 
WRITE  (  6 
WRITE  ( 6 
CONTINUE 
DC  ISO  I 
WRITE  lo 
FORMAT  ( 
WRITE  lo 
WRITE  lo 
CONTINUE 
WRITE  (o 
CO  190  I 
WRITE  (o 
FORMAT  ( 
WRITE  (6 
WRITE  1 6 
CONTINUE 
DO  191  I 
WRITE  (6 


=1,NIP1 
,*)  I 

'   AW  '  J 
,949) 
,999)  (  <AW(I,J,K),K=1,NKP1),J=1,NJP1) 

=1,NIP1 
,»)  I 

'   AE  '  ) 
,948) 
,999)  (  (AE(I,J,K),K  =  1,NKP1),J=1,NJP1) 

=1,NIP1 
,*)  I 

'   AB  '  ) 
,958  1 
,999)  <(AB<I,J,K),K=1,NKP1),J=1,NJP1) 


=1,NIP1 
,*)  I 

'   AF  '  ) 
,968) 
,999)  <<AF(I,J,K),K=1,NKP1),J= 


1,NJP1) 
1,NIP1) 


,999)  (  (SU(I,5,K),K  =  1,NKP1),I  = 

=1,NIP1 

,*)  I 

'   SU  '  ) 
,978) 
,999)  (<SU(I,J,K),K=1,NKP1),J=1,NJP1) 

=1,NIP1 
,*)  I 


00348500 
00348600 
00348700 
00348800 
00348900 
00349000 
00349100 
00349200 
00349300 
00349400 
00349500 
00349600 
00349700 
00349800 
00349900 
00350000 
00350100 
00350200 
00350300 
00350400 
00350500 
00350600 
00350700 
00350800 
00350900 
00351000 
00351100 
00351200 
00351300 
00351400 
00351500 
00351600 
00351700 
00351800 
00351900 
00352000 
00352100 
00352200 
00352300 
00352400 
00352500 
00252600 
00352700 
00352800 
00352900 
00353000 
00353100 
00353200 
00353300 
00353400 
00353500 
00353600 
00353700 
00353800 
00353900 
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:  WRITE  16,988) 

988  FORMAT  (  '   PP  '  ) 

:  WRITE  (6,999)  ( ( PP( I , J,K  )  ,J  =  1 ,NJP1 ) ,K  =  7,7 ) 

191  CONTINUE 

999  FORMAT  (12E10.3) 


C  ***    CORRECT  VELOCITIES  AND  PRESSURE 

C 

C  ***    CORRECTION  FOR  VELOCITY  U 

DO  600  1=2, NI 
IM1=I-1 

IF  (I.EQ.2)  IM1=NI 
DO  600  J=2,NJ 
DO  600  K=2,NK 

U(I,J,K)=U(I,J,K)+DU(I,J,K)*<PPIIM1,J,K)-PPII,J>K)) 
600  CONTINUE 


C  *** 


CORRECTION  FOR  VELOCITY  V 


DO  603  J=3,NJ 
JM1=J-1 
DO  603  K=2,NK 
DO  603  1=2, NI 

V( I,J,K  )=V(I,J,K)+DV(I,J,K)*(PP(I,JM1,K)-PP<I,J,K)) 
603  CONTINUE 

C  »**    CORRECTION  OF  VELOCITY  W 

DO  604  K=3,NK 
KM1=K-1 
DO  604  1=2, NI 
DO  604  J=2,NJ 

W(I,J,K)=W(I,J,K)+DW(I,J,K)*(PP(I,J,KM1)-PP(I,J,K)) 
604   CONTINUE 


C  *** 


CORRECTION  FOR  PRESSURE  P 


DO  606  J=2,NJ 
DO  60t>  I  =  1,NIP1 
DO  606  K=1,NK 

P(I,J,K)=P(I,J,K)+PP(I,J,K) 
PP(I,J,K  )  =  0. 
606  CONTINUE 

C  ***  THIS  IS  FOR  R=0.0  CASE 

DO  75  I=1,NIP1 

DO  75  K=1,NKP1 
C     U(I,1,K)=U(I,2,K) 
C     W(I,1,K)=W(I,2,K) 
C     V(I,2,K)=V(I,3,K) 


00354000 
00354100 
00354200 
00354300 
00354400 
00354500 
00354600 
00354700 
00354800 
00354900 
00355000 
00355100 
00355200 
00355300 
00355400 
00355500 
00355600 
00355700 
00355800 
00355900 
00356000 
00356100 
00356200 
00356300 
00356400 
00356500 
00356600 
00356700 
00356800 
00356900 
00357000 
00357100 
00357200 
00357300 
00357400 
00357500 
00357600 
00357700 
00357800 
00357900 
00358000 
00353100 
0035S200 
002E3300 
0035S400 
00358500 
00358600 
00353700 
00358800 
00358900 
00359000 
00359100 
00359200 
00359300 
00359400 
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75   CONTINUE 


***  MODIFICATION  FOR  R=0.0 

DO  55  K=2,NK 

VY=0.0 

VX=0.0 

VZ=0.0 

DO  50  1=2, NI 

VY=VY+U(I,2,K  )*COSIXS(I)) 

VX=VX-U( I ,2 ,K )*SIN< XS( I  )) 

50  CONTINUE 

DO  51  1=2 ,NI 

VY=VY*Vl I ,3 ,K  )*SIN( XC(  I  ) ) 

VX=VX+V! 1 ,3 ,K )*C0S1  XC(  I ) ) 

VZ=VZ+W(I,2,K) 

51  CONTINUE 


C  ***  FIND  THE  VELOCITIES  AT  R=0.0 

DO   52   I=1,NIP1 

U(I,1,K )=(-VX*SINIXS(I  ))+VY*COS(XS(I ) ) J/NIM1 

VU,2,K)  =    <VX*COS(XCU))+VY*SINlXClI ) ) J/NIM1 

W(I,1,K)=VZ/NIM1 

52  CONTINUE 
55  CONTINUE 


C  *»*  THIS  IS  FOR  THE  CYLINDER  ONLY  (CYLIC  CONDITION) 

DO  76  J=1,NJP1 
DO  76  K=1,NKP1 
U( 1,J,K  )=U(NI,J,K) 
U(NIP1,J,K)=U( 2,J,K) 
V(  1,J,K  i=V(NI,J,KJ 
V(NIP1,J,K  1=V(  2,J,K) 
Wl  1,J,K  l=W(NI,J,K) 
WINIP1,J,K)=W(2,J,K) 

76  CONTINUE 

C  ***    THIS  FOR  SPHERE  ONLY 

DO  77  I=1,NIP1 

DO  77  J=1,NJP1 

U(I,J,1)=U(I,J,2) 

V(I,J,1)=V(I,J,2) 

W(I,J,2)=W(I,J,3) 

U1I,J,NKP1)=U(I,J,NK) 

V(I,J,NKP1  )=V(I,J,NK) 

W(I,J,NKP1)=W(I,J,NK) 

77  corrriNUE 


00359500 
0035^600 
00359700 
00359800 
00359900 
003o0000 
003b0100 
00360200 
00360300 
00360400 
00360500 
00360600 
00360700 
00360800 
00360900 
00361000 
00361100 
00361200 
00361300 
00361400 
00361500 
003ol600 
00361700 
00361800 
00361900 
00362000 
00362100 
00362200 
00362300 
00362400 
00362500 
00362600 
00362700 
00362800 
00362900 
00363000 
00363100 
00363200 
00363300 
00363400 
00363500 
00363600 
00363700 
00363800 
00363900 
00364000 
00364100 
00364200 
00364300 
00364400 
00364500 
00364600 
00364700 
00364800 
00364900 


187 


IF  (NCHIP.EQ.O)  GOTO  116 

C  ***  RESET  THE  VELOCITY  INSIDE  OF  DECK 

DO  120  N=1,NCHIP 

IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJIN)-1 

KB=KCHPBIN1 

KE=KB+NCHPK(N)-1 


DO  109  I=IB,IE 
DO  109  J=JB,JE-1 
DO  109  K=KB,KE-1 
U(I,J,K)=0.0 
109  CONTINUE 

DO  118  I=IB,IE-1 
DO  118  J=JB,JE 
DO  118  K=KB,KE-1 
V(I,J,K)=0.0 

118  CONTINUE 

DO  119  I=IB,IE-1 
DO  119  J=JB,JE-1 
DO  119  K=KB,KE 
Kf  I,J,K)=WFAN(N) 

119  CONTINUE 

120  CONTINUE 
116  CONTINUE 

C  ***    RECALCULATE  THE  ERROR  SOURCE  AFTER  CORRECTIONS  OF  U,  V,  P 

SORSUM=0. 

RESORM(ITER)=0. 

DO  700  J=2,NJ 

JP1=J+1 

JM1=J-1 

DO  700  1=2, NI 

IP1=I+1 

IM1=I-1 

DO  700  K=2,NK 

KP1=K+1 

KM1=K-1 


CENTRAL  LENGTH  OF  THE  SCALAR  CONTROL  VOLUME 


00365000 
00365100 
003o5<iu0 
00365300 
00365400 
00365500 
00365600 
00365700 
00365800 
00365900 
00366000 
00366100 
00366200 
00366300 
00366310 
00366392 
00366394 
00366400 
00366500 
00366600 
00366700 
00366800 
00366900 
00367000 
00367100 
00367200 
00367300 
00367400 
00367500 
00367600 
00367700 
00367800 
00367900 
00366000 
00363100 
00368200 
O0368300 
00368400 
00368500 
00368600 
00368700 
00368S0O 
00368900 
00369000 
0036°100 
00369200 
00369300 
00369400 
00369500 
00369600 
00369700 
00369800 
00369900 
00370000 
00370100 
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DXP1=XL(IP1,J,K,0,0 ) 
DXI  =XLlI  >J,K,0,0) 
DXM1=XL(IM1,J,K,0,0) 

DYP1=YL(I,JP1,K,0,0) 
DYJ  =YLII,J  ,K,0,0) 
DYM1=YLU,JM1,K,0,0) 

DZP1=2L(I,J,KP1,0,0) 
D2K  =2L(I,J,K  ,0,0) 
D2M1=2L(I,J,KM1,0,0) 


C  ***    SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,0,2) 
DXS=XL(I,J  ,K,0,2) 
DXF=XL(I,J,KP1,0,3) 
DXB=XL(I,J,K   ,0,3) 

DYF=YL(I,J,KP1,0,3) 
DY3=YL(I,J,K  ,0,3) 
DYE=YL!IP1,J,K,0,1) 
DYW=YL(I   ,J,K,0,1) 

DZE=ZL(IP1,J,K,0,1) 
D2H=2L<I  ,J,K,0,1) 
DZN=2L(I,JP1,K,0,2) 
DZS=ZL(I,J   ,K,0,2) 


C  ***    DEFINE  AREA  OF  THE  CONTROL  VOLUME 

DXYF=DXF*DYF 
DXYB=DXB*DYB 
DY2E=DYE*DZE 
DYZN=DYH*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


RN=(R(I,J,K  )*DYP1+R(I,JP1,K )«DYJ )/(  DYP1+DYJ ) 
RS=(  R(  I ,J ,K )*DYM1  +  Rl I ,JM1 ,K )*DYJ )/( DYM1  +  DYJ  I 
RE=(R(I,J,K  )*DXP1+R(IP1,J,K  >*DXI )/(DXPl  +  DXI) 
RK=(  R(  I ,  J,K  )*DXt11+R<  IM1,J  ,K  )*DXI  )/(  DXM1+DXI  ) 
RF  =  (  R(  I ,J,K )*DZP1+R< I ,J ,KP1 )*D2K )/( D2P1+D2K  ) 
RB  =  I  R(  I ,J,K )*D2M1+Rl I,J,KM1 )*D2K )/( DZM1  +  DZK  ) 

CN=RN*V< I , JP1 ,K >*D2XN 
CS=RS*V(I,J   ,K)*D2XS 


00370200 
00370300 
00370400 
00370500 
00370600 
00370700 
00370800 
00370900 
00371000 
00371100 
00371200 
00371300 
00371400 
00371500 
00371600 
00371700 
00371800 
00371900 
00372000 
00372100 
00372200 
00372300 
00372400 
00372500 
00372600 
00372700 
00372800 
00372900 
00373000 
00373100 
00373200 
00373300 
00373400 
00373500 
00373600 
00373700 
00373800 
00373900 
00374000 
00374100 
OC374200 
00374300 
0037<+400 
00374500 
00374600 
0C374700 
00374800 
00374900 
00375000 
00375100 
00375200 
00375300 
00375400 
00375500 
00375600 
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CE=RE*U(IP1,J,K)*DYZE 

CW=RW*U(I       ,J,K)*DYZW 

CF=RF*W( I ,J,KP1 )*DXYF 

CB=RB*K(I,J,K       )*DXYB 

SMP(I,J,K  l=-CE+CH-CN+CS-CF+CB 

SMPII,J,K.I  =  -<R<I,J,K  >-ROD(l,J,K)  )*VOL/DTIME- 


CE+CW-CN+CS-CF+CB 


00375700 
00375800 
00375900 
00376000 
00376100 
00376200 
00376300 
C   ***  SORSUM   IS  ACTUAL   MASS   INCREASE    OR   DECREASE    FROM   CONTINUITY  00376400 

C  EQUATUON    ,    THIS  WILL   COMPARE    TO  SOURCE  00376500 

00376b00 
00376700 
00376800 
00376900 
00377000 
00377100 
00377200 
00377300 
00377400 
00377500 
00377600 
00377700 

CJ     W    •LS    ^.^      J        -       m        -         -         -         -:         -       ,m      ...     '-■        -        -       WWWWWwWWWWW..       WW      W     WWWWW^      W-NJWWI-      W       WWWWW       W      ^      WWXJWWrWWWWWWWWWWWWW     f\   f\7     ~7    ~T   Q    C\    C\ 
■w^w^^**"*^^**^"^' W"w;^w^^*  w  w*w  mm  w  w  ww*w^*****w^w-wwwwwww  www  www  jom*  w  W  w  w  w  w  w  w  w  rwwwwjjUj  /  /OUU 

SUBROUTINE  TRIDI 1ST , JST.KST.ISP , JSP ,KSP ,PHI  )  00377900 

C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1  00378100 

8   ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB,NBP1 ,NBM1 ,KRUN,NCHIP ,NJRA ,NWRP   00378200 

COMMO,,4/BL36/AP(22,16,32),AE(22,16,32J,AW(22,16,32J,AN(22,16,32), 
&  AS< 22,16,32 )>AF< 22,16,32 )  ,AB( 22,16 ,32  ) , 

S  SP<22>16,32),SU<22,16,32),RI<22,16,32) 

DIMENSION  A( 99), B<  99), CI  99), PHI (22, 16, 32) 


C   *** 


700 


SORSUM   IS  ACTUAL   MASS   INCREASE    OR   DECREASE    FROM   CONTINUITY 
EQUATUON    ,    THIS  WILL   COMPARE    TO  SOURCE 

SORSUM=SORSUM+SMPt I , J,K  ) 

RESORM   IS  SUM  OF   THE   ABSOLUTE   VALUE   OF   SMP(I,J,K) 

RESORMI ITER )=RES0RM( ITER )+ABS( SMP( I , J,K ) ) 

CONTINUE 

RETURN 

END 


GOTO   405 
ISTM1=IST-1 
AIISTM1  )=0. 
C(ISTM1)=0. 
DO  100  J=JST,JSP 
DO  100  K=KST,KSP 
DO  101  I=IST,ISP 
A(I  )=AE(I,J,K) 
B(I  )=AWII,J,K) 

CI  1 J=AN( I , J,K  )*PHI ( I ,  J  +  l ,K  )+AS( I , J ,K  )*PHI( I ,J-1 ,K ) 
&  +AF( I , J ,K )*PHI ( I , J ,K  +  1  )  +  AB( I , J,K  )*PHI( I , J ,K-1 )+SU( I , J ,K ) 

TERM  =  l./(  API  I, J, K  I-B1I  )*A(I-D) 
IF    (  ABS(  A(I ) 1.LE.1.0E-70)    A(I)  =  0.0 

1.0E-70  )  BII  )  =  0.0 

1.0E-70)  C(I)=0.0 

1.0E-70)  TERM=0.0 


IF  ( ABS(B(I  )  ).LE 
IF  (ABSICII  )  J.LE 
IF  (ABS(TERM).LE 
A(I)=A(I  )*TERM 
C(I  i  =  (C(I)+B(I)*C(I 
101  CONTINUE 

PHI(ISP,J,K)=C(ISP) 

ISTA=IST+1 

DO   102    II=ISTA,ISP 

I=IST+ISP-II 

IP1=I+1 


•1))*TERM 


00378300 
00378400 
00378500 
00378600 
00378700 
00378S00 
00378900 
00379000 
00379100 
00379200 
00379300 
0037°<*00 
00379500 
00379600 
00379700 
00379800 
00379900 
00380001 
00380002 
00380003 
00380010 
00380020 
00380100 
00380500 
00380600 
00380700 
00380800 
00380900 
00381000 
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PHI'I.J.MrAlI^PHKIP^J.KJ+CII  ) 
102  CONTINUE 
100  CONTINUE 

DO  2000  J=JST,JSP 
DO  2000  K=KST,KSP 
PHI(IST-1,J,K  )  =  PHI(ISP,J,K) 
PHIt ISP  +  1,J,K  )=PHI( IST,J,K  ) 
2000  CONTINUE 


JSTM1=JST-1 
AIJSTM1  )=0. 
C( JSTM1)=0. 
DO  200  K=XST,KSP 
DC  200  I=IST,ISP 
DO  201  J=JST,JSP 
A( J)=AN(I,J,K) 
B(  J  )=AS(I,J,K) 

C(J)=AE(I,J,K )*PHI(I  +  1,J,K)+AH<I,J,K)*PHKI-1,J,K  ) 
&  +AF(I,J>K)*PHI(I,J,K+1  )+AB(I,J,K)*PHIlI,J,K-l  l+SU(I,J,K) 

TERK=1./(AP(I,J,K)-BIJ)*A(J-1  I  ) 
IF    (ABS(  AU)  ).LE. l.OE-70)    A(JI=0.0 

l.OE-70)   B1J)=0.0 

1.0E-70  I    C( J)=0.0 

l.OE-70 J    TERK=0.0 


IF    1 ABS(B( J  J  ).LE 

IF    (ABS(CIJI).LE 

IF    ( ABS1TERMI.LE 

A<  Jl=A<  J)*TERM 

C(J)  =  (Ct  J  )+B(J)*C(J-l)  )*TERM 

201  continue 
phi(i,jsp,k)=c(jsp) 

JSTA=JST+1 

DO  202  JJ=JSTA,JSP 

J=JST+JSP-JJ 

JP1=J+1 

PHI l I  ,J,K  )=A( J  )*PHI( I ,JP1,K  )+C( J) 

202  CONTINUE 
2C0  CONTINUE 

DO  2001  J=JST,JSP 
DO  2001  K=KST,KSP 
PHI  I  1ST- 1, J, K  )=PKI(ISP,J,K) 
PHI(I£P+1,J,K J=PHIIIST,J,K) 
2001  CONTINUE 


KSTM1=KST-1 
A(K3TM1)=0.  • 
C(KSTM1)=0. 
CO  300  I=IST,ISP 
DO  200  J=JST,JSP 
DO  501  K=KST,KSP 
A(KJ=AF(I,J,K) 
B!K)=AB(I,J,K) 

C(K)=AE(I,J,K)*PHI(I*1,J,K)*AW(I,J,K)*PHI(I-1,J,K  ) 
S     ♦ANII>J,K)*PHI<I>J+1,K)+AS1I>J,K)*PHI<I,J-1,K)+SU(I,J,K) 


00381100 
00381200 
00381300 
00381*00 
00381500 
00381600 
00381700 
00381800 
00381900 
00382000 
00382100 
00382200 
00382300 
00382*00 
00382500 
00382600 
00382700 
00382800 
00382900 
00383000 
00383100 
00363200 
00383210 
00383220 
00383230 
003832*0 
00383300 
00383*00 
00383800 
003S3°00 
0038*000 
0038*100 
0038*200 
0038*300 
0038**00 
0038*500 
0038*600 
0038*700 
0038*800 
0038*900 
00385000 
00385100 
00385200 
00335300 
00385*00 
00335500 
00385600 
00335700 
00385800 
00385900 
00386000 
00386100 
00386200 
00386300 
0038o*00 
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TERM=l./< APII,J,K  )-B(K  )*A(K-1 1 ) 
IF  IABSIAIK  )  (.LE.1.0E-70  I  A(K)=0.0 
IF  (ABSIBIK.  )  I.LE.1.0E-70)  BIK)=0.0 
IF  (ABSICtK)  J.LE.1.0E-70)  CIKUO.O 
IF  (ABS(TERM).LE.1.0E-70 )  TERM=0.0 
AlK)=A»K  >*TERM 
C(K)  =  (C(K)+BIK)*C<K-1))*TERM 

301  CONTINUE 
PHI(I>J,KSP)=C(KSP) 
KSTA=K.ST+1 

DO  302  KK=KSTA,KSP 

K=KST+KSP-KK 

KP1=K+1 

PHI(I>J,K)=A(K)*PHI(I,J,KP1)*C(K) 

302  CONTINUE 
300  CONTINUE 

DO  2002  J=JST,JSP 
DO  2002  K=KST,KSP 
PHI(IST-1,J,K)=PHI(ISP,J,K) 
PHI(ISP+1,J,K)=PHI(IST,J,K) 
2002  CONTINUE 


GOTO  700 

4405  CONTINUE 
405  KSP1=KSP+1 
BIKSP1 1  =  0. 
CIKSP1  )  =  0. 
DO  600  II=IST,ISP 
I=IST+ISP-II 
DO  600  JJ=JST,JSP 
J=JST+JSP-JJ 
DO  601  KK=KST,KSP 
K=KSP+KST-KK 
KP1=K>1 
A<K)=AF(I,J,K) 
B(KJ=AB(I,J,K) 

C(K)=AE(I,J,K  )*PHI<I  +  1,J,K.)  +  AW(I,J,K)*PHI(I-1,J,K.)+AN<I,J,K)* 
S  PKI1I,J+1,K J+ASI I,J,K  )*PHI(I,J-1>K  )+SU(I,J,KJ 

TERM=1./(AP(I,J,K)-A(K  )*B(K+1)  ) 
B(K  t=B(K  )*TERM 
C(K  J  =  (C(K  I+AIK  )*CIK  +  1  )  1*TERM 
IF    (  ABSl A(K) J.LE.1.0E-70 J    A(K)=0.0 

B(K  1=0.0 

C(K)  =  0.0 


IE, 
LE 


OE- 
OE- 


70) 
70  J 


601 


602 
600 


IF    (ABSIBIK)) 
IF    (ABS(C(K)J 

corrriNUE 

PHI(I,J,KST)=C(KST) 

KSTP1=KST*1 

DO   602   K=KSTP1,KSP 

PHK I  ,J,K  )=B<  K  J*PHI< I ,J,K-1 )*C( K ) 

CONTINUE 
CONTINUE 


00386500 
00386510 
00386520 
00386530 
00386540 
00386600 
00386700 
00387100 
00387200 
00387300 
00387400 
00387500 
00387600 
00387700 
00387800 
00387900 
00388000 
00388100 
00388200 
00388300 
00388<+00 
00388500 
00388600 
0038S700 
00388800 
00388900 
00389000 
0038=100 
00389200 
00389300 
00389400 
00389500 
00389600 
00389700 
00389800 
00389900 
00390000 
00390100 
00390200 
003«0300 
00390400 
00390500 
00390600 
00390700 
00390800 
00390900 
00391000 
00391100 
00391200 
00391300 
00391400 
00391500 
00391600 
00391700 
00391800 
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DO  2003  J=JST,JSP 
DO  2003  K=K,ST,KSP 
PKI(IST-1,J,K  )=PHI(ISP,J,K) 
PHI(ISP+1,J,K)=PHI(IST,J,K) 
2003  CONTINUE 


JSP1=JSP+1 
B( JSP1  )=0. 
C( JSP1  )=0. 
DO  500  KK=KST,KSP 
K=KST+KSP-KK 
DO  500  II=IST,ISP 
I=IST+ISP-II 
DO  501  JJ=JST,JSP 
J=JSP+JST-JJ 
JP1=J*1 

A(JJ=AN1I,J,K) 
Bl  J)=ASII,J,K) 

C(J)=AE1I,J,K)*PHI(I  +  1,J,K)*AW(  I,J,K)*PHKI-1,J,K)*AF<I,J,K)* 
S      PKI(I,J,K  +  1 )+AB(I,J,K  l*PHI(I,J,K-l J+SU(I,J,K) 
TERM  =  1./(AP(I,J,K)-A( J)*Bl J  +  l  )) 
Bl  J)=B<  J  )*TERM 

CtJ)  =  <Cl  J3+AI  J)*CU  +  1)  )*TERM 
IF  (ABSI A< J) J.LE.1.0E-70 )  A(J1=0.0 

BU  1=0.0 

C( J)=0.0 


501 


502 
500 


IF  <  ABS(BU)  1.LE.1.0E-70) 

IF  (ABSICU  H.LE.1.0E-70  ) 

CONTINUE 

PHI(I,JST,K1=C( JST) 

JSTP1=JST+1 

DO  502  J=JSTP1,JSP 

PHKI,J,M=Bl J)*PHKI,J-1,K)+C(  J) 

CONTINUE 

CONTINUE 


DO  2004  J=JST,JSP 
DO  2004  K=KST,KSP 
PHI(IST-1,J,K  l=PHI(ISP,J,K) 
PHI(ISP+1,J,K)=PHI(IST,J,KJ 

200-+  CONTINUE 


ISP1=ISP+1 

B!ISP1)=0. 

C(ISP1)=0. 

DO  400  JJ=JST,JSP 

J=JST+JSP-JJ  • 

DO  400  KK=KST,KSP 

K=KST+KSP-KK 

DO  401  II=IST,ISP 

I=ISPtIST-II 

IP1=I*1 

A(I  l=AE(I,J,K) 

B(I  )=AW(I,J,K) 

CtI)=AN!I,J,K)*PW<I,J  +  l,K)+AS(I,J,K)*PHI(I,J-l,K)*AFlI,J,K)* 


00391900 
00392000 
003°2100 
00392200 
00392300 
00392400 
00392500 
00392600 
00392700 
00392800 
00392900 
003°3000 
00393100 
00393200 
00393300 
00393400 
00393500 
00393600 
00393700 
00393800 
003°3900 
0039<+000 
00394100 
00294200 
0039h300 
00394400 
00394500 
00394600 
00394700 
00394800 
003S4900 
003°5000 
00295100 
00395200 
C0395300 
00395400 

oossssoo 

00395600 
00395700 
003°5300 
00395900 
0039o000 
00396100 
00290200 
00396300 
00396400 
0039o500 
00396600 
00396700 
00396800 
00396900 
00397000 
00397100 
003"7200 
00397300 
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8  PHI!I,J,K+1  )+ABlI,J,K.)»PHKI,J>K-l  )+SU(I,J,K) 

TERM=l./( APII,J,K)-A(I  >*B(I  +  1)  ) 

B(I  )=B(I  >«TERM 

C(I >  =  (C(I  )+A<I  )*C(I  +  1) >*TERM 

IF    (ABS(A(I  )  1.LE.1.0E-70)    A(I)  =  0.0 

IF    (ABStBH  )  t.LE.l.OE-70  )    B(II  =  0.0 

IF    <ABS(ClI)J.LE.1.0E-70)    C(I)=0.0 
401      CONTINUE 

PHI(IST,J,K)=C(IST) 

ISTP1=IST+1 

DO  402    I=ISTP1,ISP 

PHK  I  ,J,K  )=&<  I  )*PHKI-1,J,K  )+C(  I  ) 
402   CONTINUE 
400   CONTINUE 

DO   2005  J=JST,JSP 
DO   2005   K=KST,KSP 
PHI(IST-1,J,K)=PKI(ISP,J,K) 
PHI(ISP+1,J>K)=PHI(IST,J,K) 

2005   CONTINUE 


700   CONTINUE 
RETURN 
END 

is    u   \J    v   is    is  \*   \*    \s   \*    uwwt^wwwww^-ww->jw^^i-  w   w    y   w   w   y   w   fcj  w  w   **■  ^  *■ 
7T  A   W  ^^  W   W  ^^^^^^  WAWW^^WW    AW    WW    W  W  W   W   W   W   W  ^^  W   W   W  W  ^ 

BLOCK   DATA 

w    ^    VJ  ^  ,«_  ^  _W    W    V   «  ,W  ^.  .w.  AC  Uu    w    W    W    M    w  .^  ^.  ^.  w    ■w   \s    w    -w    w    W   w   M    W    W   V  -.*    \J    w    w    <j    w_  w_  MMMJtll  JLkJLlUL^JLJULJLlLk 


00397400 
00397500 
00397600 
00397700 
00397800 
00397900 
00398000 
003°8100 
00398200 
00398300 
00398400 
00398500 
00398600 
00398700 
00398800 
00398900 
00399000 
00399100 
00399200 
00399300 
00399400 
00399500 
00399600 
00399700 
00399800 
00399900 
00400000 
00400100 
00400200 
00400300 
00400400 
00400500 
00400600 


C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
8  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN .NCHIP ,NJRA,NWRP 
C0MM0N/BL12/  NWRITE ,NTAPE ,NTMAX0 ,NTREAL ,TIKZ ,S0RSUM,ITER 
CCr'MON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PMl,PM200400700 
C0NM0N/BL16/  C0NST1  ,C0NST2  ,C0NST3  ,C0NST4 ,C0NST6  ,NT  ,U0  ,H  ,UGRT  , BUOY  ,00400800 
8      CP0  ,PRT ,COND0 ,VIS0 ,RHO0 ,HR ,TR,TA ,DTEMP ,THRITE .TTAPE ,TMAX,GC ,RAIR00400900 


DATA   NIP2,NIP1,NI,NIM1/23,22,21,20/ 
DATA   NJP2 ,NJP1 ,NJ ,NJM1/17 , 16 , 15 , 14/ 
DATA   NKP2,NKP1,NK,NKM1/33,Z2,31,30/ 
DATA   NAPl,NA,NAMl,NBPl,NB,NBMl/9,8>7,27,26,25/ 
DATA   U0  ,TA  ,  PP.T  ,RHO0  ,CP0  ,VIS0  ,NTMAX0/ 
8  1.0, 555 . 8o , 1 . 0 , 0 . 0714 , 0 . 24 , 1 . 56E -4 , 0/ 

DATA   TINF ,CNT , ABTURB .BTURB/1 .0,0.2,2.0,1.0/ 
DATA   GC,RAIR/32.17,53.34/ 
DATA   QCORRT,PM1/1.0,0.9/ 
END 


V-    WW     W    'W    W     \ZWMW^WWWWWMUWMM^WWWW^WW^WMWW^W«VWWWWVWWVWWWW..rMWWWMW^W     Wl^WWMWW 

w  7T^^  ^  W  !W  W  r^^^^^^?^^^^  W  W  ^^^ W^^^  ITTFTTlfTrTTTrWWXTrjrirTrXWW  ^  W   W   W   W  ^  W^^  W   RWWW   KWW^W  ~  W  W 

SUBROUTINE    GRID 

C0MX0N/R4/XCI  93  )  ,YC(  93  )  ,2C(  93  )  ,XS(  93  )  ,YS(  93  )  ,2S(  93  ) , 
8  DXXC(93  ),DYYC( 93),DZZC( 93),DXXS( 93 ) ,DYYS( 93  )  ,DZZS( 93  ) 

C0MM0N/BL1/DX,DY,DZ,V0L,DTIME,V0LDT,TH0T,TC00L,PI,Q,QR 


00401000 
00401100 
00401200 
00401300 
00401400 
00401500 
00401600 
00401700 
00401800 
00401900 
00402000 
00402100 
00402200 
00402300 
00402400 
00402500 
00*02600 
00402700 
00402800 
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C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
£   >NIP2 ,NJP2 ,NKP2 ,NA,NAP1 ,NAM1 ,N3 ,NBP1 ,NBM1  ,KRUN,NCHIP ,NJRA ,NWRP 

C  ***    RENERATION  OF  GRID 

PI=4.*ATAN( 1.  ) 
DX=1.0/FLOAT(NIM1) 
C      DY=l./FLOAT<NJMl-2) 
DY=l./FLOAT(NJMl-ll 
DZ=PI/FLOATl NKM1-NB+NA-2 ) 


DO  19  I=1,NIP2 
XS(I >=<I-2)*DX*2.0*PI 
19   CONTINUE 

C     XS(1)=-DX*2.0*PI 

C     XS<2)=0.0 

C     XS13)=0.01*2.0*PI 

C     DO  19  1=4,13 

C      XG(I  >  =  U-3)*DX*2.0*PI 

C  19   CONTINUE 

C 

XS(14)=XS(13) 

XS113  )=XS(14)-0.01*2.0*PI 

DO  18  1=15, NIP1 

XStI  l=XS(14J+(I-14)*DX*2.0*PI 
IS  CONTINUE 

XSINIP2 J=XS(NIP1  )+XS(3) 


YS< 1)=0.000 
YS( 2  1=0.025 
C  YSf 3  1=0.05 

DO   3   J=3,NJ 
YSIJ)  =  (  J-2)*DY 

3  CONTINUE 
YSINJP1)=YSINJ) 

YSINJ   )=YSINJPl)-3./8./12./9.6 
YS(NJP2)=YSINJPl)+3./8./12./9.6 

CC     DO  3  J=4,NJP2 
CC     YS(  Jt  =  (  J-3  l*DY 
CC  3   CONTINUE 

DO  4  I=1,NIP1 

IP1=I+1 

DXXC1I  )=XS(IP1)-XS(I) 

4  CONTINUE 

DXXC ( NIP2  t=DXXC( NIP1 ) 

DO  5  I=2,NIP2 

IM1=I-1 

DXXSt  I  »=.5*( DXXCf  I  HDXXCl  IM1 ) ) 

5  CONTINUE 
DXXS(1)=DXXS(2) 


00402900 
00403000 
00403100 
00403200 
00403200 
00403400 
00403500 
00403600 
00403700 
00403800 
00403900 
00404000 
00404100 
00*04200 
00404300 
00404400 
00404500 
00404600 
00404700 
00404800 
00404*00 
00405000 
00405100 
00405200 
00405300 
00405400 
00405500 
00405600 
00405700 
00405800 
00405900 
00406000 
00406100 
00406200 
0040o300 
00406400 
00406500 
00406600 
004C6700 
00406800 
0040o900 
00407000 
00407100 
00407200 
00407300 
00407400 
00407500 
00407600 
00407700 
00407800 
00407900 
00408000 
00408100 
00408200 
00408300 
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DO    7   J=1,NJP1 

JP1=J+1 

DYYCI  JI=YS<  JPD-YSI  J) 

7  CONTINUE 

DYYCINJP2  )=DYYC(NJP1) 

DO   8   J=2>NJP2 

JM1=J-1 

DYYSl J )  =  .5*< DYYC( J )+DYYC( JM1  )  ) 

8  CONTINUE 
DYYS(1)=DYYS(2) 

DO   20   I=1,NIP2 

XCII )=XS(I )+DXXC(I)/2.0 

20  CONTINUE 

DO   21   J=1,NJP2 

yc<  j)=ysu)*dyyc<j)/2.0 

21  co.ttinue 


DO    9   K=4,NA 
ZS(K)  =  (K-3  l*DZ 
9      CONTINUE 

DO   20   K=NBP1,NK 

ZS(  K  l=ZSl NA )♦( K-NB )*DZ 

30  CONTINUE 

DO   31   K=NAP1,NB 
ZSIK  »=PI/2. 

31  CONTINUE 

ZS!1  )=0.0 

ZSI2)=0.05 

ZS(3  )=0.10 
C  ZSINKP1  )=ZS(NKM1) 

C  ZSINK  )=ZG(NKPl)-0.05 

C  ZSINKM1  I=ZS(NKP1 1-0.10 

C  ZS(Ni\PZ)=ZS(NKPl)+0.05 

ZSINKP2  t-ZS(NK) 
ZSINKP1 >=ZS(NKP2)-0.05 
ZSINK  )=ZS(NKP2J-0. 10 


DO  10  K=1,NKP1 

IF  (K.GE.NA.AND.K.LT.NB)  GOTO  10 
KP1=K+1 

DZZC(K)=ZS(KP1)-ZS(K) 
10   CONTINUE 

DO  32  K=NA,NBM1 
DZZCl  K  )  =  2  .  854/1  NB-NA  ) 


00408400 
00408500 
00408600 
00408700 
00408800 
00406900 
00409000 
00409100 
00409200 
00409300 
00409400 
00409500 
00409600 
00409700 
00409800 
00409900 
00410000 
00410100 
00410200 
00410300 
00410400 
00410500 
00410600 
00410700 
00410800 
00410900 
00411000 
00411100 
00411200 
00411300 
00411400 
00411500 
00411600 
00411700 
00411800 
00411900 
00412000 
00412100 
00412200 
00412300 
00412400 
00412500 
00412&00 
00412700 
00412800 
00412900 
00413000 
00413100 
00413200 
00413300 
00413400 
00413500 
00413600 
00413700 
00413800 
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52  CONTINUE 

DZZCINKP2)=DZZC(NKP1) 

DO  11  K=2,NKP2 

IF  (K.EQ.NA.OR.K.EQ.NB)  GOTO  11 
Kt11=K-l 

D22SI K )= .5*( DZZCI K  )+DZZC( KM1 ) ) 
11  CONTINUE 

DZ2S( 1  )=DZZS(2) 
DO  22  K=1,NKP2 

IF  (K.GE.NA.AND.K.LT.NB)  GOTO  22 
ZC(K )=ZS(K  )+DZZC(K)/2.0 
22   CONTINUE 

DO  33  K=NA,NBM1 
ZC(K  )=PI/2. 
33  CONTINUE 

IF  (YSl  D.LT.O.O)  YS(1)=0.0 
IF  (YCll).LT.O.O)  YC(1I=0.0 


PRINT  * 
PRINT  *, 
PRINT  *, 


ic; 


INPUT  COORDINATE  OF  THE  TANK  IN  THE  ORDER  OF  ' 
I       XS       YS        ZS        XC       YC '  , 
S  ZC        DXXS      DYYS      DZZS      DXXC       ' 

8  ,   'DYYC       DZZC 
DO  12  I=1,NKP2 

WRITE  I  6 ,  102  )  I  ,XS<  I )  ,YS(  I  )  ,ZS(  I )  ,XCt  I )  >YC(  I  )  ,ZC(  I  ) , 
8  DXXS(I),DYYSII),DZZS(I  )  ,DXXC( I  )  ,DYYC( I  )  ,DZZC( I ) 

:  FORMAT! 2X,I4,12(2X,F8.5)) 


12   CONTINUE 

RETURN 
END 


C      *****************■*-**-*** 

FUNCTION  XL(I,J,K,M,N) 
C     *********************** 

c***?  *********  ***********************  **************************** 
N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 
HALF  CELL  (STAGGERED  CELL)  * 

N  =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y 

HALF  CELL  (STAGGERED  CELL) 
N  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z 

HALF  CELL  (STAGGERED  CELL) 

N  =  1  THEN  SHIFT  CELL  IN  THE  NEG  X  DIRECTION  ONE* 

WHOLE  CELL  * 

A    =  2  THEN  SHIFT  CELL  IN  THE  NEG  Y  DIRECTION  ONE* 

WHOLE  CELL  * 

I  =  3  THEN  SHIFT  CELL  IN  THE  NEG  Z  DIRECTION  ONE* 

WHOLE  CELL  * 


c 

WHEN 

M 

OR 

c 

c 

WHEN 

M 

OR 

c 

c 

WHEN 

M 

OR 

c 

c 

WHEN 

M 

= 

c 

c 

WHEN 

M 

= 

c 

c 

WHEN 

M 

= 

c 

DIRECTION  ONE* 

DIRECTION  ONE* 
# 


00*13900 
00-+14000 
00414100 
00414200 
00414300 
0041*400 
00414500 
00414600 
00414700 
00*14800 
00414900 
00415000 
00415100 
00415200 
00415300 
00415400 
00415500 
00415600 
00415700 
00415800 
00415900 
00416000 
00*16100 
00416200 
0041o300 
00416400 
00416500 
00416600 
00416700 
00416800 
00416900 
00417000 
00417100 
00417200 
00417300 
00417400 
00417500 
00417fc00 
00*17700 
00417800 
00417900 
00418000 
00418100 
00*18200 
00*16300 
00418400 
00418500 
0041B600 
00418700 
00418800 
00418900 
00419000 
00419100 
00419200 
00419300 
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C0MM0N/R4/XCI  93  )  ,YC(  93  )  ,2C<  93  )  ,XS(  93  )  ,YS(  93  )  ,2S(  93  ) , 
&  DXXCI 93 ) ,DYYC(  93 ) ,D22C<  93 )  ,DXXSl 93 ) ,DYYS( 93  )  ,D2ZS( 93  ) 

X1=XC(I  ) 
X2=YC( J) 
X3=2C(K) 
DXL=DXXC(I  ) 
IF(M.EQ.N)  GOTO  100 

IF(M.EQ.l.OR.N.EQ.l)  X1=XS(I) 
IFIM.EQ.l.OR.N.EQ.l  )  DXL=DXXS(I) 
IF(M.EQ.2.0R.N.EQ.2)  X2=YS(J) 
IF1M.EQ.3.0R.N.EQ.3)  X3=2S(K) 
GOTO  1000 
100  IF(M.EQ.l)  X1=XC(I-1) 

IF(M.EQ.l)  DXL=DXXC(I-1) 
IF1M.E0.2  )  X2=YC( J-l) 
IFIM.EQ.3)  X3=2C(K-1) 
1000  CONTINUE 

XL=X2*SIN(X3)*DXL 

RETURN 

END 


C     *********************** 

FUNCTION  YL(I,J,K,M>N) 
C     *********************** 


c 

WHEN  M 

c 

c 

WHEN  M 

c 

c 

WHEN  H 

c 

c 

WHEN  M 

c 

c 

WHEN  M 

c 

c 

WHEN  M 

OR  N  =  1 


OR  N 


OR  N  =  3 


=  N  =  1 


N  =  2 


=  N  =  3 


SHIFT  CELL  IN  THE  NEG 
CELL  (STAGGERED  CELL ) 
SHIFT  CELL  IN  THE  NEG 
CELL  (STAGGERED  CELL) 
SHIFT  CELL  IN  THE  NEG 
CELL  (STAGGERED  CELL) 
SHIFT  CELL  IN  THE  NEG 


THEN 
HALF 
THEN 
HALF 
THEN 
HALF 
THEN 
WHOLE  CELL 
THEN  SHIFT 
WHOLE  CELL 
THEN  SHIFT 
WHOLE  CELL 


CELL  IN  THE  NEG  Y 


CELL  IN  THE  NEG  2 


DIRECTION  ONE* 

* 
DIRECTION  ONE* 

* 
DIRECTION  ONE* 

* 
DIRECTION  ONE* 

* 
DIRECTION  ONE* 

* 
DIRECTION  ONE* 

* 


C **************************************************************** 
C0MM0N/R4/XC(  93  ),YC(  93  )>2C(  93),XS(  93  ),YS(  93),2S(93), 
8  DXXC(93),DYYC(93),D22C( 93  )  ,DXXS( 93 ) ,DYYS( 93),D22S(93) 

X1=XC(I  ) 
X2=YC(J  ) 
X3=2C(K) 
DYL  =  DYYC(  J)- 
IFIM.EQ.N)  GOTO  100 

IFIM.EQ.2.0R.N.EQ.2 )  X2=YS(J) 
IFIM.EQ.2.0R.N.EQ.2)  DYL=DYYS(J) 
IF(M.EQ.l.OR.N.EQ.l)  X1=XS(I) 
IFIM.EQ.3.0R.N.EQ.3)  X3=2S(K) 
GOTO  1000 
100  IF(M.EQ.2)  X2=YC(J-1) 


0041«400 
00tl9S00 
00419600 
00419700 
00419800 
00419900 
00<+20000 
00420100 
00420200 
00420300 
00420400 
00420500 
00420600 
00420700 
00420800 
00420900 
00421000 
00421100 
00421200 
00421300 
00421400 
00421500 
00421600 
00421700 
00421800 
00421900 
00422000 
00422100 
00422200 
00422300 
00422400 
00422500 
00422600 
00422700 
00422800 
00422900 
00423000 
00423100 
00423200 
00423300 
00423400 
00423500 
00423600 
00423700 
00423800 
00423900 
00424000 
00424100 
00424200 
00424300 
00424400 
00424500 
00424600 
00424700 
00424800 
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IFIM.EQ.2)  DYL=DYYC( J-l) 
IFIM.EQ.1)  X1=XC(I-1 ) 
IFtM.EQ.3)  X3=ZC(K-1) 
1000  CONTINUE 

YL=1.00*DYL 

RETURN 

END 


FUNCTION  ZL(I,J,K,M,N) 
C     *********************** 

C*************************-**********  IHHHHHHHHHHHHHHm  ««»*»« 


HHEN  M 


N 


DIRECTION  ONE* 
* 

DIRECTION  ONE* 
* 

DIRECTION  ONE* 
# 

DIRECTION  ONE* 

DIRECTION  ONE* 
DIRECTION  ONE* 


WHEN  M  OR  N  =  1  THEN  SHIFT  CELL  IN  THE  NEG 

HALF  CELL  (STAGGERED  CELL) 
HHEN  M  OR  N  =  2  THEN  SHIFT  CELL  IN  THE  NEG 

HALF  CELL  (STAGGERED  CELL) 
WHEN  M  OR  N  =  3  THEN  SHIFT  CELL  IN  THE  NEG 

HALF  CELL  (STAGGERED  CELL) 
WHEN  M  =   N  =  1  THEN  SHIFT  CELL  IN  THE  NEG 

WHOLE  CELL 
WHEN  M  =   N  =  2  THEN  SHIFT  CELL  IN  THE  NEG 

WHOLE  CELL 

THEN  SHIFT  CELL  IN  THE  NEG 

WHOLE  CELL 

C0MM0N/R4/XC I  93),YC(93  ),2C(  93  )  ,XS(  93  )  ,YS(  93  )  ,ZS(  93  ) , 
8  DXXCt  93),DYYC( 93),DZZC( 93  ),DXXS( 93  )  ,DYYS( 93 ) ,DZZSl 93 ) 

C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK>NKP1,NKM1 
«   ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB,NBP1 ,NBM1 ,KRUN,NCHIP ,NJRA ,NWRP 

X1=XC(I) 

X2=YC(J) 

X3=ZC(K) 

DZL=DZZC(K) 

IF(M.EQ.N)  GOTO  100 

IFIM.EQ.2.0R.N.EQ.2)  X2=YS(J) 
IF(M.EQ.l.OR.N.EQ.l)  X1=XS(I) 
IFIM.EQ.3.0R.N.EQ.3)  GOTO  200 
GOTO  1000 

200  CONTINUE 

IF  (K.EQ.NA.OR.K.EQ.NB)  GOTO  2000 

X3=Z3(K) 

DZL=DZZS(K) 

GOTO  1000 

100  IFIM.EQ.3)  X3=ZC(K-1) 

IFIM.EQ.3)  DZL=DZZCIK-1) 


IFIM.EQ.2  )  X2=YCl J 

IFIM.EQ.1)  X1=XC(I 
1000  CONTINUE 

ZL=X2*DZL 

GOTO  300 
2000  CONTINUE 


•1) 
•1) 


00424900 
00425000 
00425100 
00425200 
00425300 
00425400 
00<+25500 
00425600 
00425700 
00425800 
00425900 
0042b000 
00426100 
00426200 
00426300 
00426400 
00426500 
00426600 
00426700 
00426800 
00426900 
00427000 
00427100 
00427200 
00427300 
00427400 
00427500 
00427600 
00427700 
00427800 
00427900 
00428000 
00428100 
00428200 
00428300 
00428400 
00428500 
00428600 
00428700 
00H28800 
00428900 
00429000 
00429100 
00429200 
00429300 
00429400 
00429500 
00429600 
00429700 
0042°800 
00429900 
00430000 
00430100 
00430200 
00430300 
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DZL1=DZZC(K-1) 
DZL2=DZZC(K) 

IF  (K.EQ.NB)  DZL1=DZZC(K) 
IF  (K.EQ.NB)  DZL2=DZZC(K-1  ) 
ZL=(X2*DZLl+DZL2)/2. 
300  CONTINUE 
RETURN 
END 


*  f,  *  *.  w  ^^^^^^  w  w  ^  ^  w  w  w  k  w  ^  w  w  n  w  ^^w 

FUNCTION  SILIN(V1,V2,D1,D2) 

C        ***»********************#** 

C     IF  (D1.EQ.0.0.AND.D2.EQ.0.0)  Dl=0.1 
C     IF  (D1.EQ.0.0.AND.D2.EQ.0.0)  D2=0.1 

SILIN=< V1*D2+V2*D1 )/( D1+D2  ) 

RETURN 

END 


FUNCTION  BILIN(V1,V2,D1,D2,V3,V4,D3,D4,D5,D6  I 
C     *****************************^*********~*-***#** 
V12  =  t  V1*D2+V2*D1 )/(  D1+D2 ) 
V34=l  V3*D4+V4*D3  )/(  D3+D4  ) 
BILIN=<  V12*D6+V34*D5  )/l  D5+D6  ) 
END 


SUBROUTINE  STRESS 
C     *#****■*#***•*****#* 

comkcn/R4/xc(  93  j  ,yc<  93  >  ,zci  93 )  ,xs(  93 )  ,ys<  93 )  ,zs<  93 ) , 

8  DXXCI 93  ),DYYC( 93),DZZCl 93  J ,DXXS( 93 ) ,DYYSI 93),DZZS<93) 

C0MN0N/BL1/DX,DY,DZ,V0L,DTIME,V0LDT,TH0T,TC00L,PI,Q,QR 
C0MK0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

8   ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,N3,N3P1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMVON/BL20/SIG111 22 ,16 ,32  )  ,SIG12( 22 ,16 ,32 ) ,SIG22(  22,16,32) 

8  ,SIG13( 22,16,32  ),SIG23( 22 ,16 ,32  )  ,SIG33( 22 , 16 ,32  ) 

COMMON/BL22/ICHPB< 10  ),NCHPI( 10),JCKPB( 10  ),NCHPJ( 10  >,KCHPB(10), 

S  NCHPKf 10  )  ,TCHP( 10 ) ,CPS( 10  I  ,C0NS( 10 ) ,WFAN( 10  J 

COMMON/BL32/  T( 22,16,32  ),R( 22,16,32  ),P( 22,16,32  ) 

8       ,C ( 22, lo, 32  ),U( 22, 16,32), VI 22, 16,32  ),W( 22,16,32) 
C0MM0N/BL37/  VISl 22,16,32  ! , CONDI  22 ,16 ,32  )  ,N0D( 22 ,16  ,32  )  ,RHALL( 579 

8        ,CPMl 22,16,32  ),HSZl 3,2 ),NHSZ( 22 ,16 ,32 ) ,RESORM( 93) 


DO  100  K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  100  J=2,NJ 

JP2=J»2 

JP1=J+1 


00430400 
00430500 
00430600 
00430700 
00430800 
00430900 
00431000 
00431100 
00431200 
00431300 
00431400 
00431500 
00431600 
00431700 
00431800 
00431900 
00432000 
00432100 
00432200 
00432300 
00432400 
00432500 
00432600 
00432700 
00432800 
00432900 
00433000 
00433100 
00433200 
00433300 
00433400 
00433500 
00433600 
00433700 
00433800 
00433900 
00434000 
00434100 
00434200 
00434300 
00434400 
00434500 
00434600 
(00434700 
00434800 
0043^900 
00435000 
00435100 
00435200 
00435300 
00435400 
00435500 
00435600 
00435700 
00435800 
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:,NI 


JM1=J-1 
JM2=J-2 

IP2=I+2 
IP1=I+1 
IM1=I-1 

IM2=I-2 


C       CENTRAL  LENGTH  OF  THE  SCALAR  CONTROL  VOLUME 

DXP1=XL(IP1,J,K,0,0) 
DXI  =XL(I  ,J,K,0,0) 
DXM1=XL(IM1,J,K,0,0) 

DYP1=YL(I,JP1,K,0,0) 
DYJ  =YL(I,J  ,K,0,0) 
DYM1=YL(I,JM1,K,0,0) 

DZP1=ZL(I,J,KP1,0,0) 
DZK  =ZL(I,J,K  ,0,0) 
DZM1=ZL(I,J,KM1>0,0) 

C  ***    SURFACE  LENGTH  OF  THE  CONTROL  VOLUME 

DXN=XL(I,JP1,K,0,2) 
DXS=XLII,J  ,K,0,2) 
DXF=XL(I,J,KP1,0,3) 
DXB=XL(I,J,K   ,0,3) 

DYF=YL<I,J,KP1,0,3) 
DYB=YL(I,J,K  ,0,3) 
DYE=YL(IP1,J,K,0,1) 
DYH=YL(I   ,J,K,0,1) 

DZE=ZL(IP1,J,K,0,1) 
DZK=ZL(I  ,J,K,0,1) 
DZN=ZL(I,JP1,K,0,2) 
DZS=ZL(I,J   ,K,0,2) 

C  ***    CENTRAL  LENGTH  OF  THE  STAGGERED  CONTROL  VOLUME  FOR  T 

DXEE=XL(IP2,J,K,0,1) 
DXE  =XL(IP1,J,K,0,1) 
DXW  =XL(I  ,J,K,0,1) 
DXKW=XL(IM1,J,K,0,1) 

DYNN=YL(I,JP2,K,0,2) 
DYN  =YL(I,JP1,K,0,2) 
DYS  =YL(I,J  ,K,0,2) 
DYSS=YL(I,JM1,K,0,2) 

DZFF=ZL(I,J,KP2,0,3) 
DZF  =ZL(I,J,KP1,0,3) 
DZB  =ZL(I,J,K  ,0,3) 
DZBB=ZL(I,J,KM1,0,3) 


00435900 
0043o000 
00436100 
00436200 
00436300 
00436400 
00436500 
00436600 
00436700 
00436800 
00436900 
00437000 
00437100 
00437200 
00437300 
00437400 
00437500 
00437600 
00437700 
00437800 
00437900 
00438000 
00438100 
00438200 
00438300 
00438400 
00438500 
00438600 
00433700 
00438800 
00438900 
00439000 
00439100 
00439200 
0043Q300 
00439400 
0043°500 
00439600 
00^39700 
0043°800 
00439900 
00440000 
00440100 
00440200 
00440300 
00440400 
00440500 
00440600 
00440700 
00440800 
00*40900 
00441000 
00441100 
00441200 
00441300 
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UBAR=0.5*(U(IP1,J,K)+UII,J,K)) 
VBAR=0.5*(VII,JP1,K)+V(I,J,K)) 
NBAR=0 .5*( Wl I ,J ,KP1  )+N( I , J,K  )  ) 

dxy=dxi*dyj 
dyz=dyj*dzk 
dzx=dzk*dxi 

sig1ki,j,k)  =  2.*vis(i,j,k)*<(u(ip1,j,k)-u(i,j,k))/dxi 
8         +vbar*(dxn-dxs)/dxy 
&  +wbar*(dxf-dxb)/dzx) 

sig22<i,j,k)=2.*visii,j>k>*< < v< i ,jp1,k )-v( i,j,k ) )/dyj 
s         ♦wbar*(dyf-dyb)/dyz 
&         +ubar*<dye-dyw)/dxy) 

sig33i i ,j,k )=2.*vis< i ,j ,k  )*( i  w( i ,j,kp1  )-w( i,j,k ) )/dzk 
&         +ub ar* ( dze -dzw  )/dzx 
&        +vbar*(dzn-dzs)/dyz) 
100  continue 

DO  200  K=2,NKP1 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO  200  J=2>NJP1 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO  200  I=2,NIP1 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 


C  ****    FOLLOWING  DX,  DY ,  DZ,  ARE  BASED  ON  THE  LOCAL  CONTROL 
C         VOLUME  FOR  SIG12 

C  IF  (J.EQ.2)  GOTO  500 
DXN=XL(I,J  ,K,1,0) 
DXS=XL(I,JM1,K,1,0) 
DYE=YL(I  ,J,K,2,0) 
DYH=YL(IM1,J,K,2>0) 
DXI=XL(I  ,J,K,1,2) 
DYJ=YL(I   ,J,K,2,1) 

DYN=YL(I,J  ,K,1,0) 
DYS=YL(I,JM1,K,1,0) 
DXE=XL(I  ,J,K,2,0) 
DXW=XL(IM1,J,K,2,0) 


00441400 
00441500 
00441600 
00441700 

oo<*4iaoo 

OOhhI^OO 
00442000 
00442100 
00442200 
00442300 
00442400 
00442500 
00442600 
00442700 
00442800 
00442900 
00443000 
00443100 
00443200 
00443300 
00443400 
00443500 
00443600 
00443700 
00443800 
00443900 
00444000 
00444100 
00444200 
00444300 
00444400 
00444500 
00444600 
00444700 
00444800 
00444900 
00445000 
00445100 
00445200 
00445300 
004^5400 
00445500 
00445600 
00445700 
00445800 
00445900 
00446000 
00446100 
00446200 
00446300 
00446400 
00446500 
00446600 
00446700 
00446800 
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UBAR=SILINl U(  I  ,J,K  )  ,Ul  I ,JM1 ,K ) >DYN,DYS  ) 
VBAR=SILIN(V(I,J,K),V<IM1,J,K),DXE,UXW) 

VIS12=BILINIVIS(I   ,J,KI,VIS(I   , JM1 ,K  )  ,DYN,DYS, 
&  VIS(IM1,J,K),VISUM1,JMI,K),DYN,DYS,  DXE,DXW) 

SIG12(I,J,K)=  VIS12*( (V(I,J,K)-V(IM1,J,K) )/DXI 

8  -VBAR*(DYE-DYW)/IDXI*DYJ)) 

SIG12I 1 , J,K )=SIG12( I ,J,K )+VIS12*( ( U( I ,J,K  )-U< I , JM1 ,K  )  )/DYJ 
8  -UBAR*(DXN-DXS)/1DXI*DYJ)  ) 

300  CONTINUE 

C  ****    FOLLOWING  OX,  DY ,  DZ,  ARE  BASED  ON  THE  LOCAL  CONTROL 
C         VOLUME  FOR  SIG13 

DXF=XL(I,J,K  ,1,0) 
DXB=XL(I,J,KM1,1,0) 
0ZE=2LlI  ,J,K,3,0) 
DZW=ZL(IM1,J,K,3,0) 
DXI=XL(I  ,J,K,1,3) 
DZK=ZL(I   ,J,K,3,1) 

DZF=ZL<I,J,K  ,1,0) 
DZB=ZL(I,J,KM1,1,0) 
DXE=XL(I  ,J,K,3,0) 
DXH=XL(IM1,J,K,3,0) 

IF  ( DZF . EQ . 0 . 0 . OR . DZB . EQ . 0 . 0 . OR . DZE . EQ . 0 . 0 . OR . DZW .  E<3 . 0  . 0  ) 
S   WRITE  (6,*)  I,J,K,  DZF, DZB, DZE, DZW 
UBAR=SI LINt  U( I , J ,K  )  ,U( I , J ,KM1 ) , DZF , DZB ) 
W3AR=SILIN< Wl  I , J ,K  J  ,W( IM1 , J ,K ) ,DXE ,DXW  ) 

VIS13=BILIN(VIS(I   ,J,K),VIS(I   , J ,KM1  )  ,DZF ,DZB, 
8  VIS(IM1,J,K),VIS(IM1,J,KM1),DZF,DZB,  DXE,DXW) 

SIG13iI,J,K)=  VIS13*<  IW(I,J,K )-W( IM1 , J,K )  )/DXI 

8  -WBAR*(DZE-DZW)/(DXI*DZK)  ) 

SIG13I I ,J,K  )=SIG13( I ,J,K )+VIS13*< ( U(  I ,J,K )-U( I ,J,KM1 ) )/DZK 
8  -U3AR*(D/F-DXB)/IDXI*DZK)) 


*    FOLLOWING  DX,  DY ,  DZ ,  ARE  BASED  ON  THE  LOCAL  CONTROL 
VOLUME  FOR  SIG23 

DZN=ZL(I,J  ,K,3,0) 
DZS=ZL(I,JM1,K,3,0) 

DYF=YL(I,J,K   ,2,0) 
DYB=YL(I,J,KM1,2,0) 
DZK=ZL(I,J.K,3,2) 
DYJ=YLII,J,K,2>3) 

DYN=YL(I,J  ,K,3,0) 
DYS=YL(I,JM1,K,3,0) 
DZF=ZL(I,J,K  ,2,0) 
DZB=ZL(I,J,KM1,2,0) 


00446900 
00447000 
00447100 
00447200 
00447300 
00447400 
00447500 
00447600 
00447700 
00447800 
00447900 
00448000 
00448100 
00448200 
00448300 
00448400 
00448S00 
00448600 
00448700 
00448800 
00448900 
00449000 
00449100 
00<*49200 
00449300 
00449400 
00449500 
00449t>00 
00449700 
00449800 
00449900 
00450000 
0C450100 
00450200 
00450300 
00450400 
00450500 
00450600 
00450700 
00450800 
0045C900 
00451000 
00451100 
00h51200 
00451300 
00451400 
00-tS1500 
00451600 
00451700 
00451800 
00451900 
00452000 
00452100 
00452200 
00452300 


203 


200 


998 
110 


00452400 
00452500 
C0452600 
00452700 
00452800 
00452900 
00453000 
00453100 
00453200 
00453300 
'  00453400 
00453500 
00453600 
00453700 
00453800 
00453900 
00454000 
00454100 
00454200 
00454300 
00454400 
00454500 
00454600 
00454700 

00454800 

*■■**■**■***■»■*****»*■»***  x  *  x  it  x  >:**»**-»*x  xx  m  x  x**-****-******x  xxxxxxxxxxx  x»**00454900 
SUBROUTINE  CALQ( LL  )  00455000 

*************»»***')HHE-»**»**»*»**tt**»*tt  «-»*»»*-»***»  XXXXKXXXX  »«-**tt**»*0  0455 100 

CCMMON/BL1/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR  00455200 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00455210 

COMMON/BL12/  NWRITE,NTAPE,NTMAXO,NTREAL, TIME, SORSUM, ITER  00455300 

C0MMCN/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PMl,PM200455400 

C0MM0N/BL16/  C0NST1 ,C0N5T2 ,C0NST3 ,C0NST4 , CONST© ,NT ,U0 ,H ,UGRT , BUOY ,00455500 

8   CP0,PRT,COND0,VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR0045560O 

C0MM0N/BL34/  HEIGHT! 22 , 16 ,32  )  ,REQ( 22 ,16,32 ) ,  00455700 

8       SMPI 22, 16,32), SMPPI22, 16,32), PPI22, 16, 32),  00455800 

8      DUl 22, 16,32), DV( 22,16,32  ),DW< 22,16,32)  00455900 

COMMON/BL37/  VIS(22,l6,32  ), CONDI  22 ,16 ,32  )  ,NOD( 22 ,16 ,32  )  ,RWALL( 579  )00h55910 


WBAR=SILIN1W(I,J,K),W(I,JM1,K),DYN,DYS) 
VBAR=SILIN( V( I , J ,K ) ,Vl I , J ,KM1 ) ,DZF ;D2B ) 

VIS23=BILIN(VIS(I   , J ,K  )  ,VIS( I , JM1 ,K   ),DYN,DYS, 
8  VISII,J,KM1),VIS(I,JM1,KM1),DYN,DYS,  D2F,D2B) 

SIG23(I,J,K)=  VIS23*MV(I,J,K)-V<I,J,KM1))/DZK 

8  -VBAR*IDYF-DYB)/(DZK*DYJ)) 

SIG23(  I , J ,K )=SIG23( I ,J ,K  )+VIS23*( (  Wt  I ,  J ,K  )-W( I , JM1 ,K  )  )/DYJ 
8  -WBAR*(DZN-DZS)/(DZK*DYJ)) 

CONTINUE 
DO  110  I=1,NIP1 
DO  110  J=1,NJP1 

WRITE  (6,998)  I ,J,SIG11( I ,J,5 ) ,SIG12( I ,J,5 ) ,SIG13( I ,J,5 ) , 
8  SIG22(I,J,5),SIG23(I,J,5),SIG33(I,J,5) 

FORMAT  (2X,I4,1X,I4,6(1X,E11.4)) 
CONTINUE 
RETURN 
END 


8        ,CPM( 22,16,32  t ,HSZ( 3 ,2 ) ,NHSZ( 22,16,32 l,RESORMl  93) 
COMMON/BL39/ALEW,PCURVE,CONSRA,PCURMl,PSOUTH,QCORR,PERROR 

C  ***  IN  MAW  OF  THE  FOLLOWING  LINES  A  TEMPORARY  CORRECTION  FOR 

C   *      ADJUSTING  QQ  TO  AGREE  WITH  THE  PRESSURE  HAS  BEEN  APPLIED. 

XTIME=TIME*H/UO 

VOLT=0.0 

DO  113  1=2, NI 

DO  113  J=2,NJ 

DO  113  K=16,17 

IF  INHSZII,J,K).EQ.0)  GOTO  113 

DXI  =XL(I   ,J,K,0,0) 

DYJ  =YL(I,J   ,K,0,0) 

DZK  =ZL(I,J,K   ,0,0) 

VOL=DXI*DYJ*DZK*H*H*H 


00455920 
00456000 
00456100 
00456200 
00456300 
00456400 
00456500 
00456510 
00456520 
0045o530 
00456540 
00456550 
00456560 
00456570 
00456580 
00456590 
00456591 
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VOLT =VOLT+ VOL 
113  CONTINUE 

QRVOL=0. 
DO  70  1=561,579 

QRVCL=QRVOL+RHALL< I  )*1 ./12 .*0 . 2*PI 
70   CONTINUE 

QR=QRVOLA'OLT*U0*CP0*RHO0*TA/H 

IF  < XTIME. LT. 23.1)  THEN 

PCURVE  =  9 . 789522E-5*XTIME**2-2 . 388310E-6*XTIME**3* 

5  REQ(10,9,16) 
DPDT   =9.789522E-5*XTIME*2-2.388310E-6*XTIME**2*3 

ELSE 

PCURVE=0.0052*.81264E-3*XTIME-.22604E-5*XTIME**2+.27262E-8*XTII 
I  3-.115621E-ll*XTIME**4+REQ(  10,9,16) 

DPDT=.81264E-3-.22604E-5*XTIME*2+.27262E-8*XTIME** 

6  2*3.0-.115621E-ll*XTIME**3*4 
ENDIF 

IF  (  LL  .EQ.  1)  THEN 
Q3=1.0E8*DPDT 
Q=CQ*3 . 4134/60 . /60 . 
65  CONTINUE 

Q=Q*QCORRT-QR 


ELSE 
THIS  USES  A  CURVE 
GCCRRT=0.0 
QCORR=0.0 
ITEST  =  0 
BURNR1 
BURNR 2 


FIT  THROUGH  THE  BURNRATE  DATA  GIVEN  BY  NRL 


8 


5.4576748  +0 
-1.3116787  ♦ 
+.50945510E-06*XTINE**3 
IP  (XTIME  .LT.  100  1  THEN 

BURNR=  BURNR2  +  1 . 3117- . 013117*XTIME 
ELSE 

BURNR  =  BURNR2 
ENDIF 

I F( XTIME  .LE.  300)  GO  TO  60 
IFIBURNR2  .LT.  BURNR1  )  THEN 

BURNR  =  ( BURNR1  ♦  BURNR2  )  /  2 
GO  TO  60 


1861S346*XTIME-.20153996E-03*XTIME**2 
.3315S595*XTIME-.7342952E-03*XTIME**2 


60 


CC 


ELSE 

IF  (  XTIME  .LT.  600.0)  GO  TO 
IF  (ITEST  .EQ.  0)  THEN 
BURNR3  =  BURNR2 
ITEST  =  1 
ENDIF 

BURNR  =  BURNR3 
ENDIF 

Q  =  BURNR*2. 2046*9612. /3600.-QR 
THIS  GIVES  Q  IN  BTU/SEC 

ENDIF 


60 


00456592 
00456593 
00456594 
0045t>595 
0045659b 
00456597 
00456598 
00456599 
00456600 
00456700 
00455800 
00456900 
00457000 
00457100 
00457200 
**00457300 
00457400 
00457500 
00457600 
00457700 
00457710 
00457800 
00457900 
00458000 
00458100 
00453200 
00458300 
00458400 
00458410 
00458420 
00458500 
00458600 
00458700 
0045S800 
00458900 
00459000 
00459100 
0045°200 
00459300 
00459400 
00459500 
00459&00 
00459700 
00459800 
004E°900 
00460C00 
00460100 
00460200 
00460300 
00460400 
00460500 
00460600 
00460700 
00460800 
00460900 
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0=59.313+0. 719S*XTIME-0.1139E-2*XTIME»*2-0.3367E-5*XTIME**3 

0=0*3412/3600 

RETURN 

END 


00460910 
00460920 
00461000 
00461100 
00461200 
00461300 
00461400 

00461500 

**«»»»»*»*^**»»*»*»»»»»»»*»^H»»*^H^■»H»»****^H^*»«^HH^*»^HH^*MM»l(^l*»*»»»**00'^61feOO 
SUBROUTINE  RADHTt T4WALL ,VFMXC  )  00461700 

»»«»»»*»»«iHHH(»»»»*»»*»»-IHHHHHHHm(  mumKXMMXK  IHHHHHHHBI  K  M  *■»■»)(  «»»«»  X  K*0046  1800 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJMi ,NK ,NKP1 ,NKM1  00461900 

&  ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP  00462000 
COMMON/BL16/  CONST1  ,CONST2  ,C0NST3  ,C0NST4  ,CONST6  ,NT  ,U0 ,H ,UGRT , BUOY ,00462100 

8  CP0,PRT,COND0,VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00462200 
COMMON/BL32/  Tl  22,16  ,32  )  ,R(  22  ,16,32  )  ,P<  22  ,16,32  )  00462300 

&       ,C(22,lo,32),U<22,16,32  >,V(  22 ,16 ,32 ) ,W( 22,16,32  )  004o2400 

COMMON/BL37/  VIS( 22 ,16 ,32 ), CONDI  22 ,16 ,32 ) , NODI  22,16 ,32 ) ,RWALL( 579)00462500 

&  ,CPMl 22,16,32),HSZ(3,2),NHSZ<22,16,32),RESORM(93)  00462600 

COMMON/BL39/ALEH,PCURVE,CONSRA,PCURMl,PSOUTH,QCORR,PERROR         00462700 

00462800 
00462900 
DIMENSION  VFMXC(579,579),T4WALL(579)  00463000 

DO  4010  K=3,NKM1  00463100 

DO  4010  1  =  2, NI  00463200 

II  =  (K-3I*(NI-1HI-1  00463300 

T4WALLI II )=CONSRA*T( I ,NJRA,K )*T(  I ,NJRA,K )*T( I ,NJRA,K )*T< I ,NJRA,K  )  00463400 


4010  CONTINUE 

C  RADIATION  FROM  THE  FIRE  TO  THE  WALL 

DO  4011  J=3,9 
JJ=561+9-J 

AVT=0.25*lT(16,J,16)+T(17,J,16)+T(16,J,17)+T<17,J,17)) 
T4WALH  J  J  )=CONSRA*AVT*AVT*AVT*AVT 

4011  CONTINUE 
C 

DO  4012  J=3,14 
JJ=568+J-3 

AVT=0.25*IT(6,J,16HT(7,J,16)*T(6,J,17)*T(7,J,17)) 
T4WALL1 JJ )=CONSRA*AVT*AVT*AVT*AVT 

4012  CONTINUE 
C 

DO  4020  1=1,579 
RWALLII  1  =  0.0 
DO  4020  J=l,579 

RWALLd  )=RWALL(I)+VFMXCII,J  )*T4WALL(  J) 
4020  CONTINUE 
RETURN 
END 


C    


00463500 
00463600 
00463700 
00463800 
00463900 
00464000 
00464100 
00464200 
00464300 
00464400 
00464500 
00464600 
00t64700 
004o4800 
00464900 
00465000 
00465100 
00465200 
00465300 
00465400 
00465500 
00465t>00 
00465700 
00465800 
00465900 
00466000 
.00466100 
*00466200 
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*** 
* 

* 


SUBROUTINE    GLOBE  00<f66300 

#*#**#*****#**#«*****»^H^#*^H^*#**##^H^**#**^##********#*#»«^^»^H^#^HH^**00<+66'+00 

THIS  SUBROUTINE  CALCULATES  THE  GLOBAL  PRESSURE  CORRECTION,        #00466500 

WHEREBY  THE  PRESSURE  MATRIX  IS  UPDATED.  *00466600 


VARIABLES  USED  ARE 
SUMT 
SUMPT 
SUMPET 
UGRT 
PCORR 


#00466700 
=     SUM  OF  TEMPERATURES  #00466800 

=  SUM  CF  PRESSURE  OVER  TEMPERATURE  «004ob<>00 
=  SUM  OF  EQUILIBRIUM  PRESSURE  OVER  TEMP*00467000 
=     CONSTANT  »00467100 

=      PRESSURE  CORRECTION  #00>+67200 

««l>M)>jHt«>(l(i>)HHHHHHt*»»)t»»|()HHHHH(M»»  XX  »****«»»**»*»»**■»-»»■*■»*  m««w*»m>(kmmmk*0046  7300 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00467400 

8   ,NIP2 ,NJP2 ,NKP2 ,NA >NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP   00467500 

COMMON/BL16/  CONST1 ,CONST2 ,CONST3 ,CONST4 ,CONST6 , NT ,U0 ,H ,UGRT , BUOY ,00467600 
8   CP0,PRT,COND0,VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00467700 

COMMON/BL32/  Tl  22 ,16 ,32 ) ,R< 22 ,16 ,32  )  ,P< 22  ,16  ,32  )  00467800 

8       ,C<22,16,32),U(22,16,32),V(22,16,32),W122,16,32)  00467900 

COMMON/BL34/  HEIGHT! 22  ,1b  ,32  ) ,REQ( 22 ,1b ,32  ) ,  00468000 

&       SMP(22,16,32),SMPP(22,16,32),PP122,16,32),  00468100 

8      DU122, 16, 32), DV122, 16, 32), DWl 22,16,32)  004b8200 

COMMON/BL37/  VISl 22,16,32  I , CONDI  22 ,16 ,32  )  ,N0D( 22 ,16 ,32  )  ,RWALL( 579  )004b8300 


8        ,CPM(22,lo,32),HSZ(3,2),NHSZ(22,lb,32),RESORM(93) 

SUMT=0. 

SUMPT =0. 

SUMPET=0. 

DO  370  1=2, NI 

DO  370  J=2,NJ 

DO  370  K=2,NK 

IF  (NOD(I,J,K).EQ.l)  GOTO  370 

DXI=XLlI,J,K,0,0,0) 

DYJ=YL(I,J,K, 0,0,0) 

DZK=ZL(I,J,K,0,0,0) 

VOL=DXI*DYJ*DZK 

SUMT=SUMT+1 ./T( I ,J,K )*VOL 

SUMPT=SUMPT+P( I , J,K )/T( I ,J ,K  >«VOL 

SUMPET=SUMPET+REQ(I,J,K)*(1./1.0-1./T(I,J,K)>#VOL 

370  continue 
sumpet=sumpet/ugrt 

PC0RR=( SUMPET-SUMPT 1/SUMT 
FCORRN=PCORR 

DO  371  I=1,NIP1 
DO  371  J=1,NJP1 
DO  371  K=1,NKP1 
P!I,J,K)=P(I,J,K)*PCORRN 

371  CONTINUE 

RETURN 
END 


C 


00468400 
00468500 
00468600 
00t68700 
00468800 
00468900 
00469000 
00469100 
00469200 
00469300 
00469400 
00469500 
00469b00 
00469700 
00469S00 
00H69900 
00470000 
00470100 
00470200 
00470300 
00470400 
00470500 
00470b00 
00470700 
00470800 
00470900 
00471000 
00471100 
00471200 
00471300 
00471400 
00471500 
00471600 

»**^##***-#»**~»#**»*»##*»**#*tt-#»*«-M-»  MM  X  X  X  X  KHHHHt*<HHHtiHHHHHHHHHHHHHH{*00471 700 
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SUBROUTINE  SOLCON  00471800 

**»»»»»*»***»»»»*»*»iHt»*»*<HMMt»*»*»*»***»'^»*-»tt***)<  XKMMMMMKM  M  M*»»»*004  71  900 

C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1  00472000 

&       ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN,NCHIP ,NJRA,NWRP   00472100 

COMMON/BL12/  NWRITE ,NTAPE ,NTMAX0 .NTREAL , TIME ,SORSUM, ITER  00472200 

C0MM0N/BL16/  C0NST1 ,C0N3T2 ,C0NST3 ,C0NST4 >CONSTo ,NT ,U0 ,H ,UGRT , BUOY ,00472500 
8   CFO,PRT ,COND0 ,VISO ,RHO0 ,HR ,TR ,TA ,DTEMP ,TKRITE ,TTAPE ,TMAX ,GC ,RAIR00472400 

COMMON/BL22/ICHPBI 10  )  ,NCHPI( 10  ) ,  JCHPBI 10  )  .NCHPJl 10 ) ,KCHPBl 10 ) ,  00472500 
8  NCHPK(10),TCHP(10),CPS(10),CONS(10),WFAN<10)  00472600 

COMMON/BL37/  VISl 22,16,32  ), CONDI  22,16,32  >,NODt  22,16,32  )  ,RWALL( 579 )00472700 


S 


405 
402 


00472800 
00472900 
00473000 
00473100 
00473200 
00473300 
00473400 
00473500 
00473600 
00473700 
00473800 
00473900 
00474000 
00474100 
00474200 
00474300 
00474400 
00474500 
00474600 
00474700 
00474800 
00474900 
00475000 
00475100 
00475200 
00475300 
00475400 
00475500 
00475600 
00475700 
00475800 

00475900 

*#*>*****#*******^*****##**##*******#******jHt**«^*'«*****#**********004  76000 
SUBROUTINE  PTRACK  0047&100 

COKMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,GCORRT,PN1,PM200476300 
C0MM0N/BL16/  C0NST1 ,C0NST2 ,C0NST3 ,C0NST4 ,C0NST6 ,NT ,U0 ,H ,UGRT , BUOY ,00476400 

5  CP0,PRT,COND0,VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00476500 
COMMON/BL32/  Tl 22 ,16 ,32  )  ,Rl 22,16 ,32  )  ,P( 22 ,16 ,32 )  00476600 

6  ,C(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32)  00476700 
C0MM0N/BL34/  HEIGHT! 22 ,16 ,32  )  ,REQ( 22 ,16 ,32  )  ,                      00476800 

&       SMP(22,16,32),SMPP(22>16,32),PP(22,16>32),  00476900 

&  DU( 22,16,32),DV(22,16,32),DW122,16,32)  00477000 

COMM0N/BL39/ALEH,PCURVE,C0N3RA,PCURMl,PSOUTH,QC0RR,PERR0R         00477100 

00477200 


,CPM(22,16,32),HS2(3,2),NHS2( 22 ,16,32  )  ,RES0RMI 93) 

DO  402  N=1,NCHIP 

IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJIN)-1 

KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 

DO  405  I=IB,IE-1 

DO  405  J=JB,JE-1 

DO  405  K=KB,KE-1 

CONDI  I , J ,K  )=CCNDO*CONS( N ) 

CPM(I,J,KI=CPS(N) 

NOD(I,J,K  t  =  l 

I  J . EQ . NJ )  CONDI  I ,NJP1 ,K  )=COND( I ,NJ ,K ) 

(I.EQ.2)   COND(l,J,K)=COND(2,J,K) 

(I.EQ.NI  )  C0ND(NIP1,J,K  )=COND( NI , J ,K  ) 

(I.EQ.2.AND.J.EQ.NJ)   COND( 1,J  +  1,K  )=COND( 2,J,K  ) 

1 1 . EQ . NI . AND . J . EQ . NJ  )  CONDI NIP1 ,  J*l ,K )=COND( NI , J ,K ) 

I J.EQ.NJ)  CPM(I,NJP1,K  >=CPM(I,NJ,K) 

(I.EQ.2)   CPMI 1,J,K)=CPMI 2,J,K) 

(I.EQ.NI  )  CPM(NIP1,J,K  )=CPM(NI,J,K) 

(I.EQ.2. AND. J.EQ.NJ)   CPMI 1 ,J  +  1,K  )=CPM( 2 ,J,K ) 

(I.EQ.NI. AND. J.EQ.NJ)  CPMI NIP1 , J  +  1,K  )=CPMl NI ,J,K ) 


CONTINUE 
CONTINUE 

RETURN 

END 
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cc 

cc 
cc 
cc 
cc 


THE  FOLLOWING  PRESSURE  TEST  IS  A  TEMPORARY  MEASURE  TO  MODIFY  THE 
HEAT  INPUT  TO  FORCE  THE  CALCULATED  PRESSURE  TO  AGREE  WITH  THE 
EXPERIMENTAL  PRESSURE.   IT  WILL  BE  USED  UNTIL  ACCURATE  HEAT  INPUT 
IS  RECEIVED. 


PSOUTH=P( 10,9,16  )*C0NST1+REQ< 10,9,16) 
PERROR  =  ( PCURVE-PSOUTH  l/PCURVE 
QCORR=l . O+PERROR-I PSOUTH-PM1 l/PCURVE 

QCORR=l .O+PERROR-1 PSOUTH-PM1  )/PCURVE  +  ( PSOUTH-PMl )/< PCURVE 
&     ( PCURVE -PM1 J/PCURVE 
QCORRT=QCORRT*QCORR 
PCURM1=PCURVE 
PM1=PS0UTH 

RETURN 
END 


OC+77300 
00477400 
00477500 
00477600 
00477700 
00477800 
00477900 
00478000 

PCURM1)*00478100 
00473200 
00478300 
00478400 
00478500 
00478600 
00478700 
00478800 
00478900 
00479000 
00479100 

00479200 


*** 


»****iWfc»*^*»«***iHHH*XXKXXX****tt****»-»-»*tt»*XXX  KM  X  ********  X  X  *«  X  »**«"*«004  79300 

SUBROUTINE  TCP  00479400 

00^79600 

*-***4«******-X-*tH**-****^*^*X-**-*****-*#*#*****-X-*^ 

*  THIS  SUBROUTINE  CALCULATES  THE  TEMPERATURE  AT  THE  TERMOCOUPLE     *00479800 

*  POSITIONS.  *00479900 
h**********-^*****************************-***********-***  xxx  x  »«-»■*-»»*  *  kxxxOO^SOOOO 

C0MI10N/R4/XC( 93),YC(93),ZC( 93 ) ,XSf 93 ) >YSI 93  )  >ZS( 93),  00480100 

&  DXXCI 93),DYYC(93),DZ2C(93),DXXS193),DYYS(93),D2ZS(93)    00480200 

C0MM0N/BL16/  C0NST1 ,C0NST2 ,C0NST3 ,C0NST4 ,C0NST6 ,NT ,U0 ,H ,UGRT , BUOY ,00480300 
2   CPO ,PRT ,COND0 ,VISO ,RH00 ,HR ,TR ,TA ,DTEMP ,TWRITE ,TTAPE ,TMAX,GC ,RAIR00480400 


COMMCN/BL32/  T( 22 ,16 ,32  )  ,R( 22 ,16 ,32 ) ,P( 22 ,16 ,32 ) 
8        ,C(22,16,32),Ul22,16,32),V(22,lo,32),W< 22,16,32) 
C0MM0N/BL38/NTHC0,CX( 12 ) ,CY( 12  )  ,CZ( 12 ) ,NTH( 12,3 ) ,TCOUP( 12 ) 


DO  5100  N=1,NTHC0 
II=NTHIN,1) 
JJ=NTH(N,2) 
KK=NTH(N,3) 

VOL=ABS( (XC:II+1)-XC<II))*<YC(JJ+1)-YC(JJ)1*(ZC<KK+1)-ZC<KK))) 
TCOUP(N)=0. 
DO  5101  1=11,11+1 
111=11+11+1-1 
DO  £101  J=JJ,JJ+1 
JJJ=JJ+JJ+1-J 
DO  51C1  K=KK-,KK  +  1 
KKK=KK+KK+1-K 

WVOL=ABSl (XC(I  )-CX(N)  )*(  YC<  J  )-CYI  N  ) )*( ZC(  K )-CZ(  N ) ) )/VOL 
TCOUPI N  )=TCOUP( N  )  +HVOL*T( III , JJJ ,KKK ) 
5101  CONTINUE 

TCOUPI N  )=TCOUP( N  )*TR-273 . 18 

5100  CONTINUE 


00480500 
00480600 
00480700 
00430800 
00480900 
00481000 
00481100 
00481200 
00HS1300 
00481400 
00461500 
00481600 
00481700 
004S1800 
00481900 
00482000 
00482100 
00482200 
00482300 
00482400 
00432500 
00482600 
00482700 
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RETURN 
END 


00482800 
00*82900 
00483000 
00483100 
00483200 
00483300 

00483400 

*  •******♦*•*•«■*■)►**■  *-*>■***■•■  **•*•*****  »*-»**********************■«-*-*■■*■•»--*■***  **00h8  1 500 
SUBROUTINE  OUT(NN)  00483600 

********»»*»**»*tt»»tt*-»*-X-**tt-X»X  X  X  X  X  X  X  X*»*-»*»X  X  >»»WH>KK  X  X  X  MM  X  X**-»*»*00483  700 

COMMON/BL1/DX ,DY ,DZ , VOL ,DTIME ,VOLDT ,THOT ,TCOOL ,PI ,Q  ,QR  00483800 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1  00483900 

8  ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN  ,NCHIP ,NJRA ,NHRP  00484000 
COMMON/BL12/  NWRITE,NTAPE,NTMAXO,NTREAL, TIME, SORSUM, ITER  00484100 

C0MM0N/BL14/HC0EF ,TINF ,CNT ,ABTURB .BTURB ,VISL ,VISMAX ,QCORRT ,PM1 ,PM200484200 
COMMON/BL16/  CONST1 ,CONST2 ,CCNST3,C0NST4 .CONST 6 , NT, U0,H ,UGRT, BUOY ,00484300 

8  CPO ,PRT ,COND0 ,VIS0 ,RHOO ,HR  ,TR ,TA ,DTEMP ,THRITE ,TTAPE ,TMAX,GC ,RAIR00484400 
COMMON/BL32/  Tl 22 ,16 ,32  )  ,Rl 22  ,16,32  )  ,P< 22,16 ,32  )  00484500 

&  ,C<22,16,32),U(22,16,32),V(22,16,32),W122,16,32)  00484600 

C0MM0N/BL34/  HEIGHT! 22 ,16 ,32  )  ,REQ( 22 ,16 ,32  )  ,  00484700 

8       SMP(22,16,32),SMPP<22,It>,32),PPl22,l6,32)>  00484800 

8      DU(  22,16,32 ),DV(22,16,32  I  ,DW( 22,16,32  )  00484900 

COMMON/BL36/API 22,16,32  )  ,AE ( 22  ,  16 ,32  > ,AW( 22 ,16  ,32  )  >AN( 22 ,16,32  ) ,   00484910 

8        AS(22,lb,32),AF<22,16,32),AB(22,16,32),  00484920 

8     SP122,16,32),SU(22,16,32),RI(22,16,32)  00484930 

COMMON/BL37/  VISl 22,16,32  ), CONDI  22  ,16 ,32  ), NODI  22  ,16,32  )  ,RWALL( 579 J00485000 


8        ,CPM( 22,16,32  ),HSZ(3,2  )  ,NHS2( 22 ,1b ,32  )  ,RESORM( 93) 
COMMON/BL38/NTHCO,CXl 12  )  ,CY( 12  )  ,CZ( 12 ) ,NTH( 12,3) ,TCOUP(  12 ) 
COMM0N/EL39/ALEW, PCURVE, CONSRA,PCURMl,PSOUTH,QCORR, PERROR 
XTIME=TIME*H/UO 
IF(  NN  .EQ.  1)  THEN 

QRR=60.*60./3. 412/1000. *QR 

WRITE  I  6,500 )  XTIME ,NTREAL ,TIME ,ITER .RESORMl ITER ) , SORSUM, QRR 
50C  FORMATilX,  'TIME= ' ,F7 . 3 , '  S ' ,1X , 'NTREAL= ' ,19 ,1X, 
8  'TIME=' ,F7.2,'<0>' ,1X, ,ITER='  ,12, IX, ' SOURCE =' , 
8  F9.6,1X, ,SORSUM=- ,F9.6,1X,"  QR!KH)  =  SF10.4) 


QKW  = 
PRINT 
PRINT 
8CRR 
PRINT 
PRINT 


< (60. *60.  )/<3. 412*1000.  ) )*  Q 

* 

*,  '   PCURVE  PSO'JTH 

QCORRT  Q(KW)  ' 

* ,  PCURVE ,PSOUTH .PERROR ,QCORR, QCORRT, QKH 


PERROR 


ELSE  IF1 
PRINT  * 
PRINT  *, ' 
KRITE  (6,*) 
PRINT  * 
PRINT  * 

ELSE 


DO  502  L=25,25 


NN  .EQ.  2  )  THEN 


TEMPERATURES  AT  THERMOCOUPLE  POSITION  IN  (C)' 
(TCOUP(N),N=l,NTHCO) 


00485100 
00485200 
00485300 
00485400 
00485500 
00485600 
00485610 
00485700 
00485600 
00485900 
00486000 
00486100 
00486200 
00486300 
Q00486400 
00486500 
00486600 
00486700 
0048o800 
00486900 
00487000 
00487100 
00487200 
00487300 
00487400 
00487500 
00487600 
00487700 
00487800 
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cc 
cc 


K=L  004C7900 

DO  502  K=1,NIP1  00486000 

i=m  00488100 

WRITE! 6,504)  I,K  00488200 

504  F0RMAT!/,2X,'I=' ,I2,5X,'K=' ,12,/MOX,'  T  NOD  '  ,3X,  'R(  GM/C  .C  .  ) '  ,2X,  00488300 

&    'Ul CM/SEC  f ,2X, 'VI  CM/SEC  )' ,2X,'Wf CM/SEC  1" ,'P  < ATM  ) ' ,5X , 'SMP ' ,5X>  00438400 

&  " VIS( SEC/CM-CM )' ,3X, 'CONDI  SEC/CM-CM  )' ,'  XSMP',/)  00488500 

513  DO  503  J=1,NJP1  00488feOO 

XTEMP=T( I , J ,K  J/C0NST3-273 . 16  00488700 

XTEMP=T(I,J,K)  00488800 

XR=R(I,J,K >*RHO0/2.2048  *1000 .*( 0 . 0328 >**3  00488900 

XR=R(I,J,K)  00489000 

XU=U(I,J,K  >*C0NST6  00489100 

XV=V(I,J,K)*C0NST6  00489200 

XW=W(I,J,K)*C0NST6  00489300 

XP=( P( I , J ,K )*C0NST1+REQ< I ,  J ,K )*PINT )  00489400 

XP=P(I,J,K)  00489500 

XU=U(I,J,K)  00489600 

XV=V(I,J,K)  00489700 

XW=W(I,J,K+1)  00489800 

XVIS=VIS(I,J,K)*RHO0*CP0*H#U0*1.48S14  00489900 

XCOND=COND(I,J,K )*RHO0*CP0*H*U0*l .48814  00490000 

XVIS=VISlI,J,K)/VISO  00490100 

XCCND=CCNDII,J,K)/VISO  00490200 

XSMP  =  RKI,J,K)  00490300 

D0YY=l./FLOAT(NJMl-2)  00490400 

PE  =SQRT( U( I ,  J ,K l**2+V( I ,J ,K  )**2*W( I ,  J,K  )**2  )*DDYY/COND< I ,J,K )     00490500 

HRITEf  b,511)J,XTEMP,XR,XU,XV,XW,XP,SMP(I,J,K),XVIS,XC0ND,XSMP  00490600 

511  F0RMAT(2X,'J=' ,13 ,2X,F6 .3 ,2X,F6 . 3 ,2X,F7. 3 ,2X,F7.3,3X,F7.3,3X  004  90  700 

S  ,F12.3,3X,F9.6,2X,F6.2,2X,F6.2,2X,F6.3)  00490800 

503  CONTINUE  00490900 

502  CONTINUE  004°1000 

ENDIF  0049HOO 

RETURN  00491200 

ENC  00491300 


211 


LIST  OF  REFERENCES 


1.  Emmons,  H.  W.,  "Scientific  Progress  on  Fire,"  Ann.  Rev.  Fluid 
Mech.,  vol.  12,  pp.  223-36,  1980. 

2.  Yang,  K.  T.,  J.  R.  Lloyd,  A.  M.  Kanury,  and  K.  Satoh,  "Modeling  of 
Turbulent  Buoyant  Flows  in  Aircraft  Cabins,"  Combustion  Science 
and  Technology,  vol.  39,  pp.  107-118,  1984. 

3.  Kou,  H.  S.,  K.  T.  Yang,  and  J.  R.  Lloyd,  "Turbulent  Buoyant  Flow 
and  Pressure  Variations  around  an  Aircraft  Fuselage  in  a  Cross 
Wind  near  the  Ground, "  Fire  Safety  Science-Proceedings  of  the 
First  International  Symposium,  pp.  173-184,  1986. 

4.  Nicolette,  V.  F.,  K.  T.  Yang,  and  J.  R.  Lloyd,  "Transient  Cooling  by 
Natural  Convection  in  a  Two-Dimensional  Square  Enclosure,"  Intl. 
J.  Heat  Transfer,  vol.  28,  no.  9,  pp.  1721-1732,  1985. 

5.  Aziz,  K.,  and  J.  D.  Heliums,  "Numerical  Solution  of  the  Three- 
Dimensional  Equation  of  Motion  for  Laminar  Natural  Convection," 
Physics  of  Fluid,  vol.  10,  pp.  314-324,  1967. 

6.  Mallinson,  G.  D.,  and  G.  De  Vahl  Davis,  "Three-Dimensional 
Numerical  Analysis  of  Transient  Natural  Convection  in  a  Box  a 
Numerical  Study,"  J.  Fluid  Mech.,  vol.  83,  pp.  1-31,  1977. 

7.  Chan,  A.  M.  C,  and  S.  Banerjee,  "Three-Dimensional  Numerical 
Analysis  of  Transient  Natural  Convection  in  Rectangular  Enclo- 
sure," J.  Heat  Transfer,  vol.  101,  pp.  114-119,  1979. 

8.  Ozeo,  H.,  K.  Fujii,  N.  Lior,  and  S.  W.  Churchill,  "Long  Rolls  Gener- 
ated by  Natural  Convection  in  an  Inclined,  Rectangular  Enclo- 
sure," Int.  J.  Heat  Mass  Transfer,  vol.  26,  pp.  1427-1438,  1983. 

9.  Morrison,  G.  L.,  and  V.  G.  Tran,  "Laminar  Flow  Structure  in  Verti- 
cal Free  Convection  Cavities,"  Int.  J.  Heat  Mass  Transfer,  vol.  21,  pp 
203-213,    1978. 

10.  Yang,  H.  Q.,  K.  T.  Yang,  and  J.  R.  Lloyd,  "Flow  Transition  in  Lami- 
nar Flow  in  a  Three-Dimensional  Tilted  Rectangular  Enclosure," 
Heat  Transfer,  vol.  4,  1495-1500,  1986. 

11.  Yang,  H.  Q.,  K.  T.  Yang,  and  J.  R.  Lloyd,  "Laminar  Natural  Convec- 
tion Flow  Transition  in  Tilted  Three-Dimensional   Longitudinal 


212 


Rectangular  Enclosures,"  Int.  J.  Heat  Mass  Transfer,  vol.  30,  no.  8, 
pp   1637-1644,   1987. 

12.  Yang,  H.  Q.,  K.  T.  Yang,  and  J.  R.  Lloyd,  Three  Dimensional  Buoy- 
ant Bimodal  Flow  Transition  in  Tilted  Enclosures,"  to  appear  in 
Int.  J.  Heat  and  Fluid  Flow,  1988. 

13.  Yang,  H.  Q.,  Laminar  Buoyant  Flow  Transitions  in  Three-Dimensional 
Tilted  Rectangular  Enclosures,  Ph.D.  Thesis,  University  of  Notre 
Dame,  South  Bend,  IN,  1987. 

14.  Ozoe,  H.,  T.  Shibata,  and  S.  W.  Churchill,  "Natural  Convection  in  an 
Inclined  Circular  Cylinder  Annulus  Heated  and  Cooled  in  its  End 
Plates,"  Int.  J.  Heat  Mass  Transfer,  vol.  24,  pp.  727-737,  1981. 

15.  Takata,  Y.,  K.  Fukuda,  S.  Hasegawa,  H.  Shimomura,  and  K. 
Sanokawa,  'Three-Dimensional  Natural  Convection  in  a  Porous 
Medium  Enclosed  in  a  Vertical  Curved  Annulus,"  Numerical  Heat 
Transfer,  pp.  29-39,  1983. 

16.  Takata,  Y.,  K.  Iwashige,  K.  Fukuda,  and  S.  Hasegawa,  Three- 
Dimensional  Natural  Convection  in  an  Inclined  Cylindrical  Annu- 
lus, Int.  J.  Heat  Mass  Transfer,  vol.  27,  pp.  747-754,  1984. 

17.  Rao,  Y.,  Y.  Miki,  K.  Fukuda,  and  Y.  Takata,  "Flow  Patterns  of  Natu- 
ral Convection  in  Horizontal  Cylindrical  Annuli,"  Int.  J.  Heat  Mass 
Transfer,  vol.  28,  pp.  705-714,  1985. 

18.  Fusegi,  T.,  and  B.  Farouk,  "A  Three- Dimensional  Study  of  Natural 
Convection  in  the  Annulus  between  Horizontal  Concentric  Cylin- 
ders," Proc.  8th  Int.  Heat  Transfer  Conf,  San  Francisco,  CA,  vol.  4, 
pp.   1575-1580,   1986. 

19.  Smutek,  C,  P.  Bontoux,  B.  Roux,  G.  H.  Schiroky,  A.  C.  Hurford,  F. 
Rosenberger,  and  G.  De  Vahl  Davis,  Three  Dimensional  Convec- 
tion in  Horizontal  Cylinders:  Numerical  Solutions  and  Comparison 
with  Experimental  and  Analytical  Results,"  Numerical  Heat  Trans- 
fer, vol.  8,  pp.  613-631,  1985. 

20.  Yang,  H.  Q.,  K.  T.  Yang,  and  J.  R.  Lloyd,  "A  Numerical  Study  of 
Three-Dimensional  Laminar  Natural  Convection  in  a  Horizontal 
Cylinder  with  Differentially  Heated  End  Walls  at  High  Rayleigh 
Numbers,"  Proceedings  of  the  Symposium  on  Heat  and  Mass  Trans- 
fer Honoring  Professor  B.T.  Chao,  University  of  Illinois,  Urbana,  IL, 
pp.   153-195.   1987. 


213 


21.  Ozoe,  H.,  K.  Fujii,  T.  Shibata  and  S.  W.  Churchill,  "Three-Dimen- 
sional Numerical  Analysis  of  Natural  Convection  in  a  Spherical 
Annulus,"  Numerical  Heat  Transfer,  vol.  8,  pp.  383-406,  1985. 

22.  Baum,  H.  R.,  and  R.  G.  Rehm,  "Calculations  of  Three  Dimensional 
Buoyant  Plumes  in  Enclosures,"  Combustion  Science  and  Technol- 
ogy, vol.  40,  pp.  55-77,  1984. 

23.  Baum,  H.  R.,  and  R.  G.  Rehm,  "Natural  Computation  of  Large  Scale 
Fire-Induced  Flows,"  paper  presented  at  the  Eighth  Int.  Conf.  on 
Numerical  Methods  in  Fluid  Dynamics,  Aachen,  West  Germany,  28 
June-2  July  1982. 

24.  Baum,  H.  R.,  and  R.  G.  Rehm,  "Computation  of  Fire  Induced  Flow 
and  Smoke  Coagulation,"  Nineteenth  Symposium,  Int.  of  Combus- 
tion, The  Combustion  Institute,  Pittsburgh,  PA,  pp.  921-931, 
1982. 

25.  Rehm,  R.  G.,  and  H.  R.  Baum,  "The  Equations  of  Motion  for  Ther- 
mally Driven,  Buoyant  Flows,"  J.  of  Research  of  the  National  Bureau 
of  Standards,  vol.  83,  no.  3,  pp.  297-308,  May-June  1978. 

26.  Bagnaro,  M.,  M.  Laouisset,  and  F.  C.  Lockwood,  "Field  Model  Pre- 
diction of  Some  Room  Fires:  Steady  and  Transient,"  Fire  Dynamics 
and  Heat  Transfer,  ASME  HTD,  vol.  25,  ASME,  New  York,  NY,  pp. 
107-114,    1983. 

27.  Markatos,  N.  C,  and  K.  A.  Pericleous,  "An  Investigation  of  Three 
Dimensional  Fires  in  Enclosures,"  Fire  Dynamics  and  Heat  Trans- 
fer, ASME   HTD,   vol.   25,  ASME,   New  York,    NY,   pp.    115-124, 

1983. 

28.  Alexander,  J.  I.,  H.  J.  St.  Aubin,  J.  P.  Stone,  T.  T.  Street,  and  F.  W. 
Williams,  "Large-Scale  Pressurizable  Fire  Test  Facility— Fire  I," 
NRL  Report  864,  Naval  Research  Laboratory,  Washington,  DC, 
December  1982. 

29.  Nies,  G.  F.,  Numerical  Field  Model  Simulation  of  Full  Scale  Tests  in 
a  Closed  Vessel,  Master's  and  Mechanical  Engineer's  Thesis,  Naval 
Postgraduate  School,  Monterey,  CA,  December  1986. 

30.  Raycraft,  J.  K.,  Numerical  Field  Model  Simulation  of  Full  Scale  Fire 
Tests  in  a  Closed  Spherical/ Cylindrical  Vessel,  Master's  and 
Mechanical  Engineer's  Thesis,  Naval  Postgraduate  School,  Mon- 
terey, CA,  December  1987. 


214 


31.  Eringen,  A.  C,  Mechanics  of  Continua,  John  Wiley  &  Sons,  Inc., 
New  York,  NY,  1967. 

32.  Department  of  Aerospace  and  Mechanical  Engineering,  University 
of  Notre  Dame,  South  Bend,  IN,  Technical  Report  TR-79002-78- 
2,  "An  Algebraic  Turbulence  Model  for  Buoyant  Recirculating 
Flow,"  by  V.  W.  Nee  and  V.  K.  Liu,  1978. 

33.  Sparrow,  E.  M.,  and  R.  D.  Cess,  Radiation  Heat  Transfer,  Hemi- 
sphere Publishing  Corporation,  Washington,  DC,  1978. 

34.  Department  of  Aerospace  and  Mechanical  Engineering,  University 
of  Notre  Dame,  South  Bend,  IN,  Technical  Report,  TR-37191-74- 
4,  "A  Numerical  Model  for  the  Prediction  of  Two  Dimensional 
Unsteady  Flows  of  Multicomponent  Gases  with  Strong  Buoyancy 
Effect  and  Recirculation,"  By  Michael  L.  Doria,  November  1974. 

35.  Patankar,  S.  V.,  Numerical  Heat  Transfer  and  Fluid  Flow,  Hemi- 
sphere Publishing  Company,  New  York,  NY,  1980. 

36.  Leonard,  S.P.,  "A  Convectively  Stable,  Third-Order  Accurate 
Finite-Difference  Method  for  Steady  Two-Dimensional  Flow  and 
Heat  Transfer,"  Numerical  Properties  and  Methodologies  in  Heat 
Transfer,  ed.  T.  M.  Shih,  Hemisphere  Pub.  Corp.,  Washington,  DC, 
pp.  211-226,   1983. 

37.  Satoh,  K.,  J.  R.  Lloyd,  K.  T.  Yang,  and  A.  M.  Kanury,  "A  Numerical 
Finite  Difference  Study  of  the  Oscillatory  Behavior  of  Vertically 
Vented  Compartments,"  Numerical  Properties  and  Methodologies  in 
Heat  Transfer,  ed.  T.  M.  Shih,  Hemisphere  Pub.  Corp.,  Washington, 
DC,  pp.  517-528,  1983. 

38.  Raycraft,  J.,  M.  D.  Kelleher,  H.  Q.  Yang,  and  K.  T.  Yang,  Naval 
Postgraduate  Schol,  Monterey,  CA,  NPS  Report  NPS-69-88-008, 
"Fire  Spread  in  a  Three-Dimensional  Pressure  Vessel  with 
Radiation  Exchange  and  Wall  Heat  Losses,"  August  1,  1988. 


215 


INITIAL  DISTRIBUTION  LIST 


No.  Copies 


1.  Defense  Technical  Information  Center  2 
Cameron  Station 

Alexandria,  VA    22304-6145 

2.  Library,  Code  0142  2 
Naval  Postgraduate  School 

Monterey,  CA    93943-5002 

3.  Commandant  (G-PTE-1)  2 
U.S.  Coast  Guard 

Washington,  DC  20590 

4.  Dr.  Patricia  A.  Tatem  2 
Code  6183 

Naval  Research  Laboratory 
Washington,  DC   20375 

5.  Professor  K.  T.  Yang  3 
Department  of  Aerospace  and 

Mechanical  Engineering 
University  of  Notre  Dame 
Notre  Dame,  IN    46556 

6.  Professor  M.D.  Kelleher,  Code  69Kk  2 
Department  of  Mechanical  Engineering 

Naval  Postgraduate  School 
Monterey,  CA    93943-5004 

7.  Chairman,  Department  of  Mechanical  Engineering  2 
Code  69 

Naval  Postgraduate  School 
Monterey,  CA  93943-5004 

8.  LCDR  Richard  Houck  2 
Resident  Inspector  Office 

15708  23rd  Avenue 
Seattle,  WA   98166 


216 


9.  CAPT  Raymond  Michelini 
Code  56Y 

Naval  Sea  Systems  Command 
Department  of  the  Navy 
Washington,  DC    20362 

10.  Mr.  James  Gagorik 
Code  211,  ONT 
Balston  Towers  #1 
800  N.  Quincy 
Arlington,  VA    22217 

11.  Dr.  Robert  Richards 
U.S.  Coast  Guard 

Research  and  Development  Center 

Avery  Point 

Groton,  CT    06340-6096 


217 


■?j£-  so  * 


f 

Thesis 

ES1'43 

Houck 

c.l 

Numerical  field  model 
simulation  of  full-scale 
fire  tests  in  a  closed 
spherical /cylindrical 
vessel  with  internal 
ventilation. 

UtfluO 

•&>"  e'*2 


<[JA    *■**, 


